ho trovato questo ma non riesco a farlo funzionare mi date una mano?

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

Public Function GetUName() As String
'************************************************* **********************
'Func.: GetUName (SB-29/03/2000; Mod.: )
'Desc.: Restituisce l'user name d'accesso a Windows
'Par. :
'Ret. : Stringa con il nome dell'utente corrente
'************************************************* **********************
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space(256)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
GetUName = Left(sBuffer, lSize - 1)
Else
GetUName = ""
End If
End Function


grazie