Hi,
Here is the code Which dont use RegEx (Regular Expression)-
Dim i,j,k As Byte
Dim c as Char
For Each c In Textbox1.Text
If Not Char.IsLetterOrDigit(c.ToString(),0) Then
i += 1
ElseIf Char.IsLetter(c.ToString(),0) Then
j += 1
ElseIf Char.IsDigit(c.ToString(),0) Then
k += 1
End If
Next
If i >= 1 and j >= 1 and k >=1 Then
MsgBox("Password is Strong")
Else
MsgBox("Password is Weak")
End If