Private Declare Function GetComputerName Lib "kernel32" Alias _    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long' Returns the name of the computer.Function ComputerName() As String    Dim buffer As String * 512, length As Long    length = Len(buffer)    If GetComputerName(buffer, length) Then        ' this API returns non-zero if successful,         ' and modifies the length argument        ComputerName = Left$(buffer, length)    End IfEnd Function