Ever since I saw it, I prefer this much simpler version:

Dim strUser As String
strUser = Environ("username")


--JP


On Apr 1, 2:15*pm, "Dan R." wrote:
Here's a function to get the username:

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

Public Function ReturnNTUserName() As String
* *Dim rString As String * 255, sLen As Long
* *Dim NWUserName As String, tString As String
* *tString = ""
* *On Error Resume Next
* *sLen = GetUserName(rString, 255)
* *sLen = InStr(1, rString, Chr(0))
* *If sLen 0 Then
* * * tString = Left(rString, sLen - 1)
* *Else
* * * tString = rString
* *End If
* *On Error GoTo 0
* *NWUserName = Left(Right(tString, _
* * * * * * * * * Len(tString) - 1), Len(tString) - 2)
* *ReturnNTUserName = Left(tString, 1) _
* * * * * * * * * + NWUserName + Right(tString, 1)
End Function

--
Dan