VB6 (VBA) - алгоритм подбора пароля

Dim Pass() As Long 
Const Lchar As Long = 30 ' указывает нижнюю границу символов от 1-255
'Скорость подбора пароля 495 086 комбинаций в секунду (зависит от процессора компа).
'Этот модуль наглядно показывает как подбирается пароль:
Sub MyPass()
timers = Time
Dim sq As Long
passQ = "213" ' это пример пароля который нужно найти
'более трех символов вводить не рекомендуется =)
ReDim Pass(1 To 1)
    For x = Lchar To 256
    sq = sq + 1
        If x = 256 Then ' если пошел следующий символ значит увеличиваем предыдущий
            Pass(UBound(Pass)) = x
            Pass = NewChar(Pass) ' переопределяем...
            x = Lchar
            'goto NNext
        End If
        Pass(UBound(Pass)) = x
        ''''''''''''''''''
        If passQ = Slit(Pass) Then ' здесь проверяем пароль
            MsgBox "Ваш пароль :" & Chr(34) & Slit(Pass) & Chr(34) & Chr(13) & "Прошло времени : " & Format(Time - timers, "Long time") & Chr(13) & "Проверено комбинаций : " & Format(sq, "#,##0"), , "Результат поиска пароля :"
            Exit Sub 'не удалять!
        End If
        ''''''''''''''''''
    Next
End Sub
 
Function Slit(Arr)
    For x = 1 To UBound(Arr)
        Slit = Slit & Chr(Arr(x))
    Next
    x = x
End Function
Function NewChar(Arr)
x = UBound(Arr)
Pred = LBound(Arr)
    Do
        If Arr(x) > 255 Then ' если текущий символ больше 255 значит ставим его на начальный уровень и увеличиваем предыдущий
            If x > LBound(Arr) Then
                Arr(x - 1) = Arr(x - 1) + 1
            Else
                ReDim Arr(1 To UBound(Arr) + 1)
                For cv = 1 To UBound(Arr) 'устанавливаем для всех знаков начальную константу
                    Arr(cv) = Lchar
                    NewChar = Arr
                    Exit Function
                Next
            End If
            Arr(x) = Lchar
        End If
    x = x - 1
    Loop While x >= Pred
NewChar = Arr
End Function