String Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. String Functions
  4. Using Len(string) to Check the Length of a String
Sub CheckPassword()
    Dim strPassword As String
BadPassword:
    strPassword = "pass"
    If Len(strPassword) = 0 Then
        End
    ElseIf Len(strPassword) < 6 Then
        MsgBox "less than 6.",vbOKOnly + vbCritical, "Unsuitable Password"
        GoTo BadPassword
    ElseIf Len(strPassword) > 15 Then
        MsgBox "too long." , vbOKOnly + vbCritical, "Unsuitable Password"
        GoTo BadPassword
    End If
End Sub