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