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

Dim pas As String
Dim x1 As Boolean
Dim x2 As Boolean
Dim x3 As Boolean
Dim x4 As Boolean
Dim k As Integer
k = 0
x1 = False
x2 = False
x3 = False
x4 = False
K=InputBox("пароль","ввод данных")
If Len(pas) >= 8 Then x1 = True
For i = 1 To Len(pas)
If Asc(Mid(pas, i, 1)) >= Asc("A") And Asc(Mid(pas, i, 1)) <= Asc("Z") Then 
x2 = True 
end if
If Asc(Mid(pas, i, 1)) >= Asc("a") Then 
x3 = True
end if
If Val(Mid(pas, i, 1)) >= 1 Then
x4 = True
end if
Next i
If x1 = True Then k = k + 1 
If x2 = True Then k = k + 1 
If x3 = True Then k = k + 1 
If x4 = True Then k = k + 1 
Print k
end sub

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