Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Exit Do Until Loop

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