XL 2010 Problème avec un texte défilant d'un USF lors de son ouverture

Option Explicit

Dim Stop_Code As Boolean
Dim i&

Private Sub UserForm_Activate()
    i = -1
    Dim hwnd&
    '*************************************************************
    'Élimination de la barre de titre de l'UserForm "UserForm2"
    '*************************************************************
    hwnd = FindWindow(vbNullString, Me.Caption)
    SetWindowLong hwnd, -16, &H94080080: SetWindowLong hwnd, -20, &H0:    ' sans caption
    '*************************************************************
    CommandButton1_Click
End Sub
'
'arrête le défilement du texte dans le TextBox "TextBoxMotPasse"
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Stop_Code = True
End Sub
'
Private Sub CommandButton1_Click()    'CommandButton "OK"

    Dim phrase$, phrase1$, phrase2$, w#, temp#

    If TextBoxMotPasse = "zaza" Then
        Unload Me    'ferme l'USF "UserForm2"
    Else
        TextBoxMotPasse.ForeColor = &HFF&    'le texte du message défilant dans le TextBox "TextBoxMotPasse" est rouge
        i = i + 1
        If i = 0 Then phrase = "vous avez droit a trois essais "
        If i = 1 Then phrase = " Code erroné. Vous n'avez droit plus qu'à 2 essais. "
        If i = 2 Then phrase = " ¡CARAMBA! Encore raté... il ne vous reste plus qu'un seul essai. "
        If i = 3 Then phrase = " Mauvaise limonade ! Vous vous êtes encore planté. "
        If i > 3 Then
            phrase = " vous avez grillé vos trois essais !!! il ne vous reste plus qu'a appuyer sur ""ESC"""
            CommandButton1.Enabled = False
            With Champignon: .Width = 0: .Enabled = False: End With
         TextBoxMotPasse.Move 0, 0, Me.InsideWidth, Me.InsideHeight
        End If
        Stop_Code = False
        Do
            TextBoxMotPasse.Value = phrase
            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 pour entrer le mot de passe
    End If
End Sub
'
Private Sub CommandButton2_Click()    'CommandButton "OUT"
    Stop_Code = True  'arrête le défilement du texte dans le TextBox "TextBoxMotPasse"
    Unload Me  'ferme l'USF "USF_MotDePasse"
End Sub
'
Private Sub Champignon_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 erroné entré
    Me.TextBoxMotPasse.SetFocus    'sélectionne le TextBox "TextBoxMotPasse" pour y entrer le mot de passe
End Sub