VB6.0 Password Validation

Password Validation vb 6.0

    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 [email protected]#$%^&+=
    regEx.Pattern = "^.*(?=.{8,})(?=.*\d)(?=.*[a-z])(?=.*[A-Z])(?=.*[[email protected]#$%^&+=]).*$"

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

Game doper

Game doper

Im Just a gamer trying to find a path in Game Development :D