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

Public Function getCurLoginName() As String
    Dim strName As String
    strName = Space$( 20 )

    If GetUserName(strName, Len(strName)) Then
        getCurLoginName = strName
    Else
         ' никто не вошел в сеть или система не поддерживает эту функцию
 
        getCurLoginName = ""
    End If
End Function