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


Public Function CurrentUserName() As String
'Purpose  : Returns the network login name
'DateTime : 5/28/2002 09:54
'Author   : Bill Mosca
    Dim lngLen As Long
    Dim x As Long
    Dim strUserName As String
    
    'Create buffer
    strUserName = String(254, Chr$(0))
    lngLen = Len(strUserName)
    x = GetUserName(strUserName, lngLen)
    
    If (x > 0) Then
        'Trucate remaining buffer space from end of string.
        CurrentUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
    Else
        CurrentUserName = vbNullString
    End If
    
End Function