Dim Key As RegistryKey
Dim Wert As String
 
' Einen Registryzweig zum Schreiben öffnen
Key = Registry.CurrentUser.OpenSubKey( _
  "Software\Microsoft\Windows\CurrentVersion\Run", True)
 
' Prüfen ob Wert schon vorhanden ist
Wert = Key.GetValue("Test", Application.StartupPath & "\Test.exe")
If Wert = Nothing Then
' Key hinzufügen
Key.SetValue("Test", Application.StartupPath & "\Test.exe")
End If                
Key.Close()