Visual Basic - Funcion para recibir nombre de sesion en VB6??

Necesito tomar el nombre de sesion en el que se encuentre el usuario para mostrarlo en un textbox en VB6, hay alguna funcion que me tome dicho nombre??

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Private Function NombreUsuarioWindows() AS String
Dim NomUSU as string
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
NomUSU = Left$(sBuffer, lSize)
Else
NomUSU = vbNullString
End If
NombreUsuarioWindows = NomUsu
End Function