Visual Basic - Como captuar el nombre del usuario de Windows

Quisiera saber si alguien me puede ayudar, lo que necesito es capturar el nombre del usuario activo en windows para agregarlo en un opcion del menu. de antemano gracias

Carlos. Probá con esto, yo lo tengo así.

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

Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
Text1.Text = Left$(sBuffer, lSize)
Else
Text1.Text = vbNullString
End If

Gracias Mauro