Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

An If Then ElseIf Statement without an Else Clause

Sub Check_Password()      Dim strPassword As String  BadPassword:      strPassword = "Password"      If Len(strPassword) = 0 Then          End      ElseIf Len(strPassword) < 6 Then          Debug.Print "too short."          GoTo BadPassword      ElseIf Len(strPassword) > 15 Then           Debug.Print "too long."           GoTo BadPassword      End If  End Sub