[سعود]

كود :

       If TextBox1.TextLength < 8 Then
           MsgBox("اقل خانات 8", MsgBoxStyle.Critical, "")

           Exit Sub
       End If

---

http://forums.asp.net/t/1476756.aspx

كود :

Dim upper As Integer = 0
Dim lower As Integer = 0
Dim symbol As Integer = 0
Dim str As String = "Hello$"
For [loop] As Integer = 0 To str.Length - 1
    If [Char].IsUpper(str([loop])) Then
        upper += 1
    ElseIf [Char].IsLower(str([loop])) Then
        lower += 1
    ElseIf [Char].IsSymbol(str([loop])) Then
        symbol += 1
    End If
Next

لم اجرب بعد