Problème de reconnaissance de date sous VBA Excel 2007

If Not IsDate(sdate) Then
MsgBox "Date non conforme"
End If

Dim sdate As String
sdate = "29/02/2016"
If Not IsDate(sdate) Then
MsgBox "Date non conforme"
Else
 Range("A1") = Format(sdate, "dd/mm/yyyy")
 Selection.NumberFormat = "dd/mm/yyyy;@"
End If

Dim sdate As String
sdate = TextBox1.Value
If Not IsDate(sdate) Then
MsgBox "Date non conforme"
Else
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
End If

Option Explicit
Dim Masque, Caractère, Séparateur, St As String
Dim ChrsAffichés, Compteur, Longueur, i, Rt As Integer
Dim ToucheSupp As Boolean
Private Sub CommandButton1_Click()
Dim sdate As String
sdate = TextBox1.Value
If Not IsDate(sdate) Or Mid(sdate, 4, 2) > 12 Then
MsgBox "Date non conforme"
Else
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
 Me.Caption = "La date saisie " & TextBox1.Tag & " est correcte"
End If
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
SelectNext
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If IsNumeric(Chr(KeyAscii)) = True Then
   TextBox1.Tag = TextBox1.Tag & Chr(KeyAscii)
   Formate
End If
KeyAscii = 0
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 46 Then
   Formate
ElseIf KeyCode = 8 Then
   St = TextBox1.Tag
   If Len(St) > 0 Then
      St = Replace(St, Séparateur, "")
      St = Left(St, Len(St) - 1)
      TextBox1.Tag = St
      Formate
   End If
End If
SelectNext
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SelectNext
End Sub
Private Sub SelectNext()
St = TextBox1.Tag
St = Replace(St, Séparateur, "")
Compteur = 0
'On sélectionne le prochain emplacement
For i = 1 To Len(TextBox1.Text)
   If Mid(TextBox1.Text, i, 1) <> Séparateur Then
      Compteur = Compteur + 1
      If Compteur > Len(St) Then
         TextBox1.SetFocus
         TextBox1.SelStart = i - 1
         TextBox1.SelLength = 0
         Exit For
      End If
   End If
Next i
'Le contenu de textbox1.Tag est prêt à être utilisé
If Len(TextBox1.Tag) = Len(Masque) Then
   TextBox1.SelStart = Len(TextBox1.Text)
   TextBox1.SelLength = 0
End If
End Sub
Private Sub Formate()
 i = 0
 St = ""
 'On supprime les séparateurs
 TextBox1.Tag = Replace(TextBox1.Tag, Séparateur, "")
 'On remet le tout au format pré-défini
 For Rt = 1 To Len(Masque)
     If Mid(Masque, Rt, 1) = "#" Then
        i = i + 1
        If i > Len(TextBox1.Tag) Then Exit For
        St = St & Mid(TextBox1.Tag, i, 1)
     Else
        St = St & Séparateur
     End If
 Next Rt
 TextBox1.Tag = St
 
 'Affichage du chiffre à titre d'exemple
 Me.Caption = "La date saisie est: " & TextBox1.Tag

 'On remet le textbox1 au même format mais avec les caractères de
 'subtituition et en tenant compte des chiffre qui doivent rester visibles
 St = ""
 TextBox1.Text = ""
 i = 0
 For Rt = 1 To Len(TextBox1.Tag)
    If Mid(TextBox1.Tag, Rt, 1) = Séparateur Then
       St = St & Séparateur
    Else
       i = i + 1
       If i > ChrsAffichés Then
          St = St & Caractère
       Else
          St = St & Mid(TextBox1.Tag, Rt, 1)
       End If
    End If
 Next Rt
 'On remplit le restant du textbox1 conformément au masque
 If Len(TextBox1.Tag) < Len(Masque) Then
    For Rt = Len(TextBox1.Tag) + 1 To Len(Masque)
       If Mid(Masque, Rt, 1) = Séparateur Then
          St = St & Séparateur
       Else
          St = St & Caractère
       End If
    Next Rt
 End If
 TextBox1.Text = St
 End Sub
Private Sub CompteChiffres()
Longueur = 0
For i = 1 To Len(Masque)
    If Mid(Masque, i, 1) = "#" Then Longueur = Longueur + 1
Next i
End Sub
Private Sub UserForm_Initialize()
Masque = "##/##/####"
ChrsAffichés = "10"
Séparateur = "/"
CompteChiffres
Formate
TextBox1.SelStart = 0
TextBox1.SelLength = 0
TextBox1.MaxLength = Len(Masque)
TextBox1 = Masque
End Sub