Como obtener el user name con VB

[Anneke]

Como puedo obtener el nombre de usuario que ha iniciado sesion en un equipo con visual basic o con un alguna API de windows, si alguien sabe, y puede ayudar, le agradezco

[Mickel]

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetMachine() As String
Dim lTamanio As Long
Dim sBuffer As String
sBuffer = Space(15& + 1)
lTamanio = Len(sBuffer)
GetMachine = ""
If GetComputerName(sBuffer, lTamanio) Then GetMachine = Left(sBuffer, lTamanio)
End Function

Public Function GetNameUser() As String
Dim lTamanio As Long
Dim sBuffer As String
sBuffer = Space(15& + 1)
lTamanio = Len(sBuffer)
GetNameUser = ""
If GetUserName(sBuffer, lTamanio) Then GetNameUser = Left(sBuffer, lTamanio)
End Function