|
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
|