Mega Code Archive

 

Categories / VisualBasic Script / String Functions

 

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