(VBS)inputbox mit passwort

[demir]

Ich kann zwar den code für den inputbox aber ich kann ihn nicht mit einem passwort versehen so das wen er falsches passwort eingibt das es dan fasch steht also ich glaube ihr versteht was ich sage

Dim a
a = inputbox ("Gib das passwort ein!","passwort?","passwort")


könnt ihr mir weiter helfen

[err#rhuman]

if a <> passwort then
msgbox("Passwort falsch")
Elseif
msgbox("Passwort richtig")
EndIF

[demir]

aber es soll auch ein richtiges passwort sein also so das er gewinnen kan
also der code womit ich es mit einem passwort austatte ist für mich sehr wichtig

[Sawyer]

Einfach die Eingabe mit deinem Passwort (welches es sein soll) vergleichen

Dim a
a = InputBox("Bitte geben Sie das Passwort ein!", "Passwort Abfrage")

If a = "richtiges Passwort" Then
    MsgBox "Passwort richtig!"
Else
    MsgBox "passwort falsch!"
End If

btw: der code von err#rhuman ist im Prinzip nicht anders , und würde ebenso funktionieren

MfG , ThePapst

[demir]

ok danke euch beiden das funkioniert richtig gut