En un módulo declarar :

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


En un formulario :

  Dim aux As String
  Dim res As Long

  aux = space$(255)
  res = GetComputerName(aux, 255)
  If res <> 0 Then aux = Left(aux, InStr(aux, Chr$(0)))
debug.print "El nombre del pc es " & aux