Strong Password Test

Enum PasswordScore
    Blank = 0
    VeryWeak = 1
    Weak = 2
    Medium = 3
    GOOD = 4
    Strong = 5
    VeryStrong = 6
End Enum

Public Function CheckStrength(ByVal password As String) As PasswordScore
    Dim score As Integer = 1

    If password.Length < 1 Then
        Return PasswordScore.Blank
    End If
    If password.Length < 4 Then
        Return PasswordScore.VeryWeak
    End If

    If password.Length >= 5 Then
        score = score + 1
    End If
    If password.Length >= 10 Then
        score = score + 1
    End If

    If Regex.IsMatch(password, "/\d+/") Then
        score = score + 1
    End If

    If Regex.IsMatch(password, "/[a-z]/") Then

        score = score + 1
    End If

    If Regex.IsMatch(password, "/[0-9]/") Then

        score = score + 1
    End If

    If Regex.IsMatch(password, "/[A-Z]/") Then
        score = score + 1
    End If
    If Regex.IsMatch(password, "/[.,!,@,#,$,%,^,&]/") Then
        score = score + 1
    End If
    If Regex.IsMatch(password, "/[*,?,_,~,-,£,(,)]/") Then
        score = score + 1
    End If


    Return CType(score, PasswordScore)
End Function