Visual Basic 6.0 Password Validation

Private Function ValidatePassword(ByVal sPass) As Boolean
Dim regEx
    
    Set regEx = CreateObject("vbscript.regexp")
    
    'At least 8 characters
    'At least 1 number
    'At least 1 lowercase letter
    'At least 1 uppercase letter
    'At least 1 special character. Special charaters include !@#$%^&+=
    regEx.Pattern = "^.*(?=.{8,})(?=.*\d)(?=.*[a-z])(?=.*[A-Z])(?=.*[!@#$%^&+=]).*$"

    ValidatePassword = regEx.Test(sPass)
    
    Set regEx = Nothing
End Function

Private Sub Command1_Click()
    MsgBox "Valid = " & ValidatePassword(Text1.Text)
End Sub



Private Sub Form_Load()
Text1.Text = ""
End Sub
**ONE TEXT BOX ** **ONE COMMAND BTN **