In diesem Beispiel wird die End-Anweisung verwendet, um die Ausführung des Codes zu beenden, wenn der Benutzer ein falsches Kennwort eingibt.
Sub Form_Load Dim Kennwort, KWort Kennwort = "Schwertfisch" KWort = InputBox("Geben Sie Ihr Kennwort ein") If KWort <> Kennwort Then MsgBox "Sie haben ein falsches Kennwort eingegeben" End End If End Sub