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

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

www.java2s.com