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