Insertion d'une date calendrier dans Textbox

'### Le code ci-dessous est dans l'USERFORM (1)

'*** TextBox4 appel userform calendrier

Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        TextBox4 = ""                  'On vide le TextBox4
        UserForm2.Show              'On charge l'USF calendrier(Monthview)
End Sub

Option Explicit

'*** Pour la minuterie
Private Declare Function GetTickCount Lib "Kernel32" () As Long 
Public DateExpiration
Public Fin As Date

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

UserForm1.TextBox4.Value = Format(Me.MonthView1.Value, "dd/Mmm/yyyy")

DateExpiration = UserForm1.TextBox4.Value

MsgBox "01--" & DateExpiration

Unload Me            'Quitte le calendrier
End Sub

------------------

'*** CODE POUR L'EXPIRATION "DATE" DE LA CARTE BLEUE
Private Sub UserForm_Activate()
 
 MsgBox "02--" & DateExpiration
      
  'UserForm1.TextBox4.Value = Application.Proper(Format(DateExpiration, "dd/mmm/yyyy"))
         
  'If CDate(Me.TextBox4.Value) - Date <= 1 Then        '(1) corresponds a alarme "1" jour avant la date d'expiration
  'Fin = Time + 0.208 / 3600                           'Temps 5 secondes

        Do While Time < Fin
          UserForm1.TextBox4.ForeColor = vbYellow
          UserForm1.Label321.ForeColor = vbYellow
            Minuterie 500                                  'Toutes les demie secondes
              UserForm1.TextBox4.ForeColor = vbRed         'Rouge Date
              UserForm1.Label321.ForeColor = vbRed         'Rouge Expiration
            Minuterie 500
        Loop
              UserForm1.TextBox4.ForeColor = vbYellow      'Remets en Jaune la date après clignotement
              UserForm1.Label321.ForeColor = vbWhite       'Remets en Blanc la date après clignotement
   ' End If
End Sub

'*** MACRO MINUTERIE POUR DATE D'EXPIRATION
Sub Minuterie(Milliseconde As Long)
    Dim Arret As Long
        Arret = GetTickCount() + Milliseconde

    Do While GetTickCount() < Arret
        DoEvents
    Loop
End Sub