Sub AskForPassword() Dim pWord As String pWord = "" Do While pWord <> "PASS" pWord = InputBox("What is the Report password?") Loop MsgBox "You entered the correct Report password." End Sub