Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. Using the Do While Loop
Sub AskForPassword()
    Dim pWord As String
    pWord = ""
    Do While pWord <> "PASS"
        pWord = InputBox("What is the Report password?")
    Loop
        MsgBox "You entered the correct Report password."
End Sub