Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Operator

Sub AskForPassword2()        Dim pWord As String        pWord = ""        Do While pWord <> "PASS"            pWord = InputBox("What is the Report password?")            If pWord = "" Then Exit Do        Loop        If pWord <> "" Then            MsgBox "You entered correct password."    End If End Sub