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

Public Function getOperatorLogin() As String

Dim lpBuff As String * 100

Dim lngreturnValue As Long

...