Dim MeinKey As RegistryKey
 
        ' Einen Registryzweig zum Schreiben öffnen 
        MeinKey = Registry.CurrentUser.OpenSubKey( _
           "Software\Microsoft\Windows\" _
           & "CurrentVersion\Run", True)
 
        ' Diverse Testschlüssel anlegen 
        MeinKey.SetValue("Test", "C:\Test.exe /WinStart")
 
        ' Den Registryzweig schließen 
        MeinKey.Close()

----------------------------
Der Weg ist das Ziel