Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

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