Date dans Textbox

Private Sub Tb_AccDateDeb_Change()

If Len(Me.Tb_AccDateDeb.Value) = 3 Then
    If Right(Me.Tb_AccDateDeb.Value, 1) <> "/" Then
        Me.Tb_AccDateDeb.Value = Left(Me.Tb_AccDateDeb.Value, 2) & "/" & Right(Me.Tb_AccDateDeb.Value, Len(Me.Tb_AccDateDeb.Value) - 2)
    End If
ElseIf Len(Me.Tb_AccDateDeb.Value) = 6 Then
    If Right(Me.Tb_AccDateDeb.Value, 1) <> "/" Then
        Me.Tb_AccDateDeb.Value = Left(Me.Tb_AccDateDeb.Value, 5) & "/" & Right(Me.Tb_AccDateDeb.Value, Len(Me.Tb_AccDateDeb.Value) - 5)
    End If
End If

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub



Private Sub TextBox1_Change()

Dim Chaine
TextBox1.MaxLength = 10
Chaine = Replace(TextBox1.Value, "/", "")
If Len(Chaine) > 2 Then Chaine = Left(Chaine, 2) & "/" & Right(Chaine, Len(Chaine) - 2)
If Len(Chaine) > 5 Then Chaine = Left(Chaine, 5) & "/" & Right(Chaine, Len(Chaine) - 5)
TextBox1.Value = Chaine

End Sub