Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. 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