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