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