Imports Microsoft.Win32
Module RegService
    Public Sub RekursiveRegistryKeySuche(ByVal Key As RegistryKey, ByVal Name _
      As String, ByVal Content As String)
        MsgBox("0")
        For Each RegistrySchluesselName As String In Key.GetSubKeyNames()
            MsgBox("1")
            'Für jeden Subkey die Prozedur rekursiv aufrufen
            ' RekursiveRegistryKeySuche(Key.OpenSubKey( 
            ' RegistrySchluesselName),Name,Content)
 
            Dim RegistryWerte As RegistryKey = Key.OpenSubKey( _
              RegistrySchluesselName, True)
            For Each WertName As String In RegistryWerte.GetValueNames()
                ' Nur zur Sicherheit wird noch abgefragt, ob der Wert auch ein 
                ' String ist sonst gibts evt.
                ' einen Laufzeitfehler
                If RegistryWerte.GetValueKind(WertName) = _
                  RegistryValueKind.String Then
                    If RegistryWerte.Name = Name Then
                        If RegistryWerte.GetValue(WertName) = Content Then
                            'Key gefunden
                            MsgBox("String found.")
                        End If
                    End If
                End If
 
            Next WertName
 
        Next RegistrySchluesselName
 
        Key.Close()
 
    End Sub
End Module

Unbehandelte Ausnahme: System.NullReferenceException: Der Objektverweis wurde _
  nicht auf eine Objektinstanz festgelegt.
   bei Projekt1.RegService.RekursiveRegistryKeySuche(RegistryKey Key, String _
   Name, String Content) in C:\Users\micha\Documents\Visual Studio _
   2012\Projects\Projekt1\Projekt1\RegService.vb:Zeile 5.

Visual Basic FTW!!