Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Using the Do Until Loop

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