Определить, сколько критериев криптостойкости выполнено - VB

Формулировка задачи:

В задании требуется определить, сколько критериев криптостойкости выполнено из 4: -строчные латинсике буквы -заглавные -цифры -длина не менее 8 символов пользователь вводит любой пароль не более 100 знаков, программа должна вывести число, показывающее уровень криптостойкости. Как это можно сделать? есть ли какие нибудь операторы распознавания икак они работают?

Решение задачи: «Определить, сколько критериев криптостойкости выполнено»

textual
                            Листинг программы 
                        

                            Option Explicit
Option Compare Binary
 
Function Cr() As Integer
Dim pas As String
Dim x2 As Boolean
Dim x3 As Boolean
Dim x4 As Boolean
Dim I%
pas = InputBox("пароль", "ввод данных")
Cr = -(Len(pas) >= 8) 'длина пароля не меньше 8 символов
For I = 1 To Len(pas)
  If Mid(pas, I, 1) >= "A" And Mid(pas, I, 1) <= "Z" Then
    x2 = True 'Есть заглавные латинские
  ElseIf Mid(pas, I, 1) >= "a" And Mid(pas, I, 1) <= "z" Then
    x3 = True 'Есть маленькие латинские
  Else
    x4 = True 'Есть непонятно что (цифры, кирилица, спецсимволы и т.д.)
  End If
Next I
Cr = Cr - x2 - x3 - x4
MsgBox "Стойкость равна " & Cr
End Function
                        