Language Basics VisualBasic Script

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