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


Public Function ComputerName()

Dim Buf As String
Dim Lang As Integer

    Buf = Space$(255)
    Lang = GetComputerName(Buf, 255)
    Lang = InStr(Buf, Chr$(0))
    ComputerName = Left(Buf, Lang)

End Function