Get the Username of the Logged On User

This function will allow you to easily get the username of the currently logged on user.

Just pop it in to a module, and you’re good to go.

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function UserName() As String
   Dim cn As String
   Dim ls As Long
   Dim res As Long

   cn = String(1024, 0)
   ls = 1024
   res = GetUserName(cn, ls)
   If res <> 0 Then
      UserName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
   Else
      UserName = ""
   End If
End Function