private Sub Ok_Click()
Password = GetSetting(App.title, "Passwort","meinPasswort")
If txtPassword.text <> Password Then
Msgbox "Sie dürfen das Programm nicht starten", vbOkonly,"Falsches Passwort"
Else: Form1.Show
Unload me
End IF
End Sub

Private Sub Speichern_Click()
SaveSetting App.Title,"Passwort","meinPasswort" , txtpasswort.text
End Sub