Visual Basic - Necesito Capturar el usuario activo en Windows

Quisiera saber como puedo capturar el nombre del usuario que esta activo en windows, para agregarlo en una opcion del menu.

gracias de antemano

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

Private Sub Form_Load()

Const clngBuffSize As Long = 255
Dim strName As String
Dim lngCharsReturned As Long

strName = String$(clngBuffSize + 1, 0)

lngCharsReturned = clngBuffSize

lngAPI = GetUserName(strName, lngCharsReturned)

If lngAPI = 0 Then
strName = "Desconocido"

Else

strName = Left(strName, lngCharsReturned)

End If


MsgBox strName

Gracias, Antony