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

Private Sub Command1_Click()
Dim compname As String, retval As Long

   compname = Space(255)
   retval = GetComputerName(compname, 255)
   compname = Left(compname, InStr(compname, vbNullChar) - 1)
   Debug.Print compname

End Sub