Visual Basic - API's

hola, hace un tiempo había conseguido un código que a través de las API's de windows obtenía el usuario de dominio correspondiente al usuario que abrió sesión, pero me da problemas con Windows2000.

les agradecería mucho si me pudiesen brindar otra solución para esto, o indicarme que puedo hacer para solucionar el problema.
gracias.

'Hola
'En un módulo escribo la siguiente linea
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'y en el formulario
buffer = String(255, 0)
If GetUserName(buffer, Len(buffer)) Then
length = InStr(buffer, vbNullChar) - 1
Usuario= Left$(buffer, length)
End If
'en la variable tipo String Usuario está almacenado el nombre de usuario que inició sesión en windows
espero que a ti te sirva