Using the Do...While Loop : Do While « Language Basics « VBA / Excel / Access / Word

Using the Do...While Loop

Sub AskForPassword()
    Dim pWord As String

    pWord = ""
    Do While pWord <> "PASS"
        pWord = InputBox("What is the Report password?")
        MsgBox "You entered the correct Report password."
End Sub


Related examples in the same category

1.Do Loop While
2.Use Integer variable as the loop control variable
3.Do while loop
4.Using the Do...While Loop with a Condition at the Bottom of the Loop
5.Use if statement in a do loop
6.Put InputBox in a Do Loop
7.A counting variable I is initialized just prior to the loop and incremented inside the loop
8.To ensure that the code block executes at least once, place the While keyword and conditional statement at the end of the Do/Loop
9.Execute the code block until the conditional statement is True.