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 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
 
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
 
Dim ret As Long, result As Long, ValueType As Long
Dim daten As String, DataBufSize As Long
Dim deinpfad As String, deinwert As String
 
Private Sub Command1_Click()
    deinpfad = "Pfad des Wertes der ausgelesen werden soll"
    deinwert = "Name des Wertes"
    'Schlüssel öffnen
    RegOpenKey HKEY_CURRENT_USER, deinpfad, ret
    'Länge des Wertes ermitteln
    result = RegQueryValueEx(ret, deinwert, 0, ValueType, ByVal 0, DataBufSize)
    'Empfangsvariable mit entsprechend vielen Nullwerten füllen
    '(Puffer erzeugen)
    daten = String(DataBufSize, Chr(0))
    'Wert auslesen
    result = RegQueryValueEx(ret, deinwert, 0, 0, ByVal daten, DataBufSize)
    'Schlüssel schließen
    RegCloseKey ret
    'Hexwerte ausgeben
    For i = 1 To Len(daten)
      hexwert = Hex(Asc(Mid(daten, i, 1)))
      If Len(hexwert) = 1 Then hexwert = "0" & hexwert
      Print hexwert & " ";
    Next
End Sub