Sub Main()
        Dim MeinKey As RegistryKey
        Dim i As Integer
 
        MeinKey = Registry.CurrentUser.OpenSubKey( _
           "Software\Microsoft\Office\14.0\Access")
        ' Schlüssel dieses Zweigs ermitteln 
        Dim ValueNames() As String
        ValueNames = MeinKey.GetValueNames()
        ' Namen der Schlüssel ausgeben 
        Console.WriteLine("SCHLÜSSEL:")
        For i = LBound(ValueNames) To UBound(ValueNames) - 1
            Console.WriteLine(ValueNames(i))
        Next
        ' Unterzweige dieses Zweigs ermitteln 
        Dim SubKeyNames() As String
        SubKeyNames = MeinKey.GetSubKeyNames()
        ' Namen der Unterzweige ausgeben 
        Console.WriteLine("UNTERZWEIGE:")
        For i = LBound(SubKeyNames) To UBound(SubKeyNames) - 1
 
            Console.WriteLine(SubKeyNames(i))
        Next
        Console.ReadLine()
 
    End Sub