Private Sub CommandButton1_Click()
retries% = 0
pass$ = "lfs"
inputpassword:
userinput$ = InputBox("Please enter the password to proceed", "zOMG HAX0RS!")
If userinput$ <> pass$ Then
retries% = retries% + 1
If retries < 3 Then
result = MsgBox("Wrong password!", vbCritical + vbRetryCancel, "zOMG HAX0RS!")
If result = vbRetry Then GoTo inputpassword Else GoTo quitapp:
Else
GoTo quitapp
End If
Else
MsgBox "success" 'stuff
GoTo exitsub
End If
quitapp:
MsgBox "quit" 'Application.Quit
exitsub:
End Sub