XL 2019 excel

Sub Macro_Trouve_PassWord()
Dim x%, y%, PwD, MyTimer As Double
Z_Vector = Split("66 97 122 105 110 103 97")
    For x = 1 To 256
        MyTimer = Timer
        Do
        Loop While Timer - MyTimer < 0.03
        With Application
        .StatusBar = "Nombre de mots de passe testés: " & x & " : " & _
        Chr(.RandBetween(65, 90)) & "|" & Chr(.RandBetween(127, 201)) & _
        .Rept(Chr(.RandBetween(48, 57)), 3) & .Rept(Chr(.RandBetween(32, 47)), 3)
        End With
        DoEvents
    Next x
Application.StatusBar = False
For y = LBound(Z_Vector) To UBound(Z_Vector)
PassWord_Check = PassWord_Check & Chr(Z_Vector(y))
Next
MsgBox PassWord_Check & "!", vbInformation, "Le mot de passe est:"
End Sub