Get UserName of User logged into the network or retrieve the current ComputerName in

[whojstall11]

I have a code that has supposed to return users network name but it only returns #name?

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function

any thoughts on how to fix

[pbaldy]

How are you using it? Did you name the module the same as the function? You can't.

[whojstall11]

no i kept it class1
but i calling it in a unbound textbox
=fOSUserName()

[pbaldy]

Is it in a class module? It should be in a standard module.

[whojstall11]

smh thank you it works

[pbaldy]

Happy to help.