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