Sub AskForPassword3() Dim pWord As String pWord = "" Do Until pWord = "DADA" pWord = InputBox("What is the Report password?") Loop End Sub