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