risolto
con questa funzione :

code.
-----------------------------------------------------------------
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
Function GetUser()
Dim Ret As Long
Dim UserName As String
Dim Buffer As String * 25
Ret = GetUserName(Buffer, 25)
UserName = Left$(Buffer, InStr(Buffer, Chr(0)) - 1)
MsgBox (UserName)
End Function
------------------------------------------------------------------
non metto in dubbio il codice che hai postato
sicuramente facevo qualche errore io ad inserirlo corretamente
visto il fatto che da poco sto studiando questo mondo ....
Se per caso conosci qualche sito in italiano dove posso appprofondire questi concetti ....gradirei
Saluti a tutti
ed un ringraziamento particolare a tutti i collaboratori di html
che grazie al loro apporto quotidiano fatto di piccoli consigli
ci aiutano tantissimo e che dire
grazia anche a chi inventò il forum....

bella l' informatica ma fatta così
è ancora più carina