' benötigt eine Form mit:
' 1 Textbox (Text1), 2 Commandbuttons (Command1, Command2)
' folgenden Code der Form hinzufügen:
Dim sApp As String
 
Private Sub Command1_Click()
' speichert den Wert in die Registry
SaveSetting "DeineAnwendung", "Anwendungen", "Rechner", Text1.Text
End Sub
 
Private Sub Command2_Click()
' liest den Wert aus der Registry in die Variable ein und startet die Anwendung
sApp = GetSetting("DeineAnwendung", "Anwendungen", "Rechner")
Shell sApp, vbNormalFocus
End Sub
 
Private Sub Form_Load()
Text1.Text = "Calc.Exe"
End Sub

HKEY_CURRENT_USER\Software\VB and VBA Program Settings\DeineAnwendung