Private Declare Function GetUserNameA Lib "advapi32.dll" ( _ ByVal lpBuffer As String, _ ByRef nSize As Long) As Long Public Function GetUserName() As String Dim UserName As String UserName = Space$(255) GetUserNameA UserName, 255 GetUserName = Trim$(UserName) End Function
MsgBox Environ("username")