XL 2016 Contrôle de date d'une textebox

If Not IsDate(Form2.TB_DateNaissance.Value) Then MsgBox ("Veuillez saisir un bon format de date: (jj/mm/aaaa)")
Form2.TB_DateNaissance.SetFocus

If Not IsDate(Me.TB_DateNaissance.Value) Then
    MsgBox ("Veuillez saisir un bon format de date: (jj/mm/aaaa)")
    Cancel = True: End If

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim An%, jour As Byte, Mois As Byte
    Select Case IsDate(Me.TextBox1.Value)
        Case True
            An = Year(Me.TextBox1.Value)
            Mois = Month(Me.TextBox1.Value)
            jour = Day(Me.TextBox1.Value)
            Me.TextBox1 = jour & "/" & Mois & "/" & An
        Case False
            If Me.TextBox1.Text = "" Then Exit Sub
            MsgBox "Veuillez saisir un format date Merci", vbCritical + vbOKOnly, "Erreur de saisie"
            Cancel = True
    End Select
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With TextBox1
X = .Value
l = 10
Select Case KeyCode
Case 96 To 105
X = X & Chr(KeyCode + IIf(KeyCode < 96, 32, -48))
If Len(X) = 2 Or Len(X) = 5 Then X = X & "/"
If Val(X) > 31 Then X = ""
If Len(X) = 6 Then If Not IsDate(X & "2000") Then X = Left(X, 3)
If Len(X) = 10 Then If Not IsDate(X) Then X = Mid(X, 1, InStrRev(X, "/"))
KeyCode = 0
 Case 8
If .SelStart > 3 Then l = 4
 If .SelStart > 6 Then l = 6
Case Else: KeyCode = 0
 End Select
.Value = Mid(X, 1, l)
 End With
End Sub