Obtener el nombre de Usuario de windows

[PanKrdo]

Hola,
Quiesiera que me ayudaran a conseguir que mediante una etiqueta (Label) me muestre la informacion del Usuario de windows del "regedit"

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\RegisteredOwner

y el nombre de la organizacion:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\RegisteredOrganization

Yo utilizo el siguiente codigo pero no me da resultados:

Código:

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
 "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String,
 ByVal lpReserved As Long, lpType As Long, lpData As Any,
 lpcbData As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias
 "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String,
 phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll"
 (ByVal hKey As Long) As Long

Private Sub Form_Load()
    Dim strUser As String
    Dim strOrg As String
    Dim lngLen As Long
    Dim lngType As Long
    Dim hKey As Long
    Dim x As Long
    Const HKEY_LOCAL_MACHINE = &H80000002
    Const REG_SZ = &H1
    x = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion", hKey) ' open desired key in registry
    strUser = Space$(256)
    lngLen = Len(strUser)
    x = RegQueryValueEx(hKey, "RegisteredOwner", 0, lngType, ByVal strUser, lngLen)
    If x = 0 And lngType = REG_SZ And lngLen > 1 Then
        strUser = Left$(strUser, lngLen - 1)
    Else
        strUser = "Desconocido"
    End If
    strOrg = Space$(256)
    lngLen = Len(strOrg)
    x = RegQueryValueEx(hKey, "RegisteredOrganization", 0, lngType, ByVal strOrg, lngLen)
    If x = 0 And lngType = REG_SZ And lngLen > 1 Then
        strOrg = Left$(strOrg, lngLen - 1)
    Else
        strOrg = "Desconocido"
    End If
    Label1.Caption = "Usuario: " & strUser
    Label2.Caption = "Empresa: " & strOrg
    x = RegCloseKey(hKey)
End Sub

Gracias