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

Private Function GetComputerName() As String
    Dim sResult As String * 255
    
    GetComputerNameA sResult, 255
    GetComputerName = Left(sResult, InStr(sResult, Chr(0)) - 1)
End Function