Exit Do Until Loop : Do Until « Language Basics « VBA ...

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

www.java2s.com