Option Explicit 
 'api call for obtaining the username
Private Declare Function GetUserName& Lib "advapi32.dll" Alias "GetUserNameA" _ 
(ByVal lpBuffer As String, _ 
nSize As Long) 
 
Public Function WindowsUserName() As String 
     '   ---------------------------------------------
     '   Function to extract the name:
     '   ---------------------------------------------
    Dim szBuffer As String * 100 
    Dim lBufferLen As Long 
     
    lBufferLen = 100 
     
    If CBool(GetUserName(szBuffer, lBufferLen)) Then 
         
        WindowsUserName = Left$(szBuffer, lBufferLen - 1) 
         
    Else 
         
        WindowsUserName = CStr(Empty) 
         
    End If 
     
End Function 
 
 
Sub GetTheNameAPI() 
     '   Deliver the name via msgbox
     '   Uses the api call above & the Function
    MsgBox "Network username is: " & WindowsUserName 
End Sub 
 
 
Sub GetTheNameAPP() 
     '   Deliver the name via msgbox
     '   Not reliable, returns the office username, not Windows
    MsgBox "Application username is: " & Application.UserName 
End Sub 
 
 
Sub GetTheNameENVIRON() 
     '   Deliver the name via msgbox
     '   Same as the api version,
    MsgBox "Environ username is: " & Environ("USERNAME") 
End Sub 
 
 
Sub GetTheNameNETWORK() 
     '   Deliver the name via msgbox
     '   Same as the api and Environ versions.
     '   Useful if you can't use Environ or API calls,
     '   ie. vbscript
    Dim objNet As Object 
    On Error Resume Next 
    Set objNet = CreateObject("WScript.NetWork") 
    MsgBox "Network username is: " & objNet.UserName 
    Set objNet = Nothing 
End Sub