Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Get the Password

Sub GetPassword()          Dim sPassWord As String, i As Integer          i = 0          Do          i = i + 1          If i > 3 Then            MsgBox "Sorry, Only three tries"            Exit Sub          End If          sPassWord = InputBox("Enter Password")          Loop Until sPassWord = "XXX"          MsgBox "Welcome"      End Sub