End Statement Example

This example uses the End Statement to end code execution if the user enters an invalid password.

Sub Form_Load
    Dim Password, Pword
    PassWord = "Swordfish"
    Pword = InputBox("Type in your password")
    If Pword <> PassWord Then
        MsgBox "Sorry, incorrect password"
        End
    End If
End Sub