Conflit entre mot de passe crypté et texte défilant

Private Sub UserForm_Initialize()
'            Élimination du bouton de fermeture de la barre de titre de l'UserForm
'************************************************************************************************
Me.Caption = " Impitoyable Mot de Passe"
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
'************************************************************************************************
Me.TextBoxMotPasse.SetFocus 'sélectionne, dès l'ouverture de l'USF, le TextBox "TextBoxMotPasse"
Me.TextBoxMotPasse.PasswordChar = "*" 'cryptage du mot de passe
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Stop_Code = True 'arrète le défilement du texte dans le TextBox "TextBoxMotPasse"
End Sub
Private Sub CommandButton1_Click() 'CommandButton "OK"
If TextBoxMotPasse = "zaza" Then
    Unload USF_MotDePasse2 'ferme l'USF "USF_MotDePasse2"
ElseIf TextBoxMotPasse = "" Then
    Me.TextBoxMotPasse.SetFocus
Else 'on s'est planté dans le mot de passe
    Dim phrase As String, phrase1 As String, phrase2 As String, w As Double, temp As Double
    phrase = "! ! ! Code définitivement erroné, coquin de sort  !  ~  Au 3ème essai infructueux, le terriblissime virus " & Chr$(34) & "Armageddon-ZZ Top 666" & Chr$(34) & " détruira irréversiblement votre PC et, par la même occasion, anihilera ipso facto fissa votre belle-mère... ! ! !  "
    TextBoxMotPasse.ForeColor = &HFF& 'le texte du message défilant dans le TextBox "TextBoxMotPasse" est rouge
    Stop_Code = False
    Do
        TextBoxMotPasse.Value = phrase
        TextBoxMotPasse.PasswordChar = ""
        w = 0.1
        temp = Timer
        Do While Timer < temp + w
            If Stop_Code = True Then Exit Do
            DoEvents
        Loop
        phrase1 = Right(phrase, Len(phrase) - 1)
        phrase2 = Left(phrase, 1)
        phrase = phrase1 & phrase2
    Loop Until Stop_Code = True
    TextBoxMotPasse.ForeColor = 0 'le texte dans le TextBox "TextBoxMotPasse" redevient noir
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Stop_Code = True 'arrète le défilement du texte dans le TextBox "TextBoxMotPasse"

  'Empêche la fermeture par Alt + F4
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

Private Sub Image2_Click() 'Efface le texte dans le TextBox "TextBoxMotPasse"
    Stop_Code = True 'arrète le défilement du texte dans le TextBox "TextBoxMotPasse"
    TextBoxMotPasse = "" 'efface le mot de passe entré
    Me.TextBoxMotPasse.SetFocus 'resélectionne le TextBox "TextBoxMotPasse"
    TextBoxMotPasse.PasswordChar = "*"
End Sub