Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetUserName() As String
Dim UserName As String * 255
GetUserNameA UserName, 255
GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function