Option Explicit
Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal _
lpszSrc As String, ByVal lpszDst As String) As Long

Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal _
lpszSrc As String, ByVal lpszDst As String) As Long
'Necesita Microsoft WMI Scripting vx.x Library
 Public Function Procesador()

 Dim oProcs As SWbemObjectSet, oProc As SWbemObject
     Set oProcs = GetObject("WINMGMTS:").InstancesOf("Win32_Processor")
     For Each oProc In oProcs
         MsgBox "Fabricante: " & oProc.Manufacturer & vbCrLf & _
             "Modelo: " & oProc.Name & vbCrLf & _
             "Descripcion: " & oProc.Description & vbCrLf & _
             "Velocidad: " & oProc.CurrentClockSpeed & vbCrLf & _
             "ID: " & oProc.ProcessorID & vbCrLf & _
             "ID Unico: " & oProc.UniqueID & vbCrLf & _
             "" & vbCrLf & _
             "Tu equipo se llama: " & NombrePC, vbInformation + vbOKOnly, "El Búho te informa"
     Next oProc
     
  DoCmd.Quit
 End Function

Function NombrePC() As String
    
    Dim Buffer As String
    Dim Size As Long
    Dim X As Long
    
    Buffer = Space(255)
    Size = 255
    
    'Asigna Nombre Maquina
    
    X = GetComputerName(Buffer, Size)
    NombrePC = Left$(Buffer, Size)
    
End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)