(VBS)inputbox mit passwort

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

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

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

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

Code:

---

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

ok danke euch beiden das funkioniert richtig gut