Fecha en textbox no deja borrar vba

Es complicado poner el formato de fecha en un textbox, no he encontrado con un código que realmente funcione.

Lo mejor en estos casos es sustituir el textbox por un control de fecha, puede ser un MonthView o un DTPicker, pero estos funcionan solamente en algunas versiones.

Otra opción es permitir captura la fecha y validar si realmente es una fecha al salir del textbox, o validarla cuando presiones un botón.

Revisa las opciones en esta respuesta:

Elegir fecha en textbox con calendario

Gracias Dan.

Lo raro es que al borrar la fecha borra solo los números del año  no la barra  "/" !!

Lo que pasa es que el programa corre en un office 2016 y no tiene el control de calendario por lo que busque uno que es echo en un userform y funciona bien. pero también necesito que escriba en el textbox..

Pido disculpas por la intromisión.

Rapo12 y si pruebas con poner el código en el evento keypress del textbox1, algo así:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case Len(TextBox1.Text)
Case Is = 2
TextBox1.Text = TextBox1.Text & "/"
Case Is = 5
TextBox1.Text = TextBox1.Text & "/"
Case Else
End Select
Dia = Mid(TextBox1, 1, 2)
If Dia > 31 Then TextBox1 = ""
Mes = Mid(TextBox1, 4, 2)
If Mes > 12 Then TextBox1.Text = Left(TextBox1, 3)
End Sub

y si quieres quitar la barra o diagonal entonces en el evento Enter del mismo textbox1 lo siguiente:

Private Sub TextBox1_Enter()
Dim Quitar As String
On Error Resume Next
If InStr(TextBox1, "/") > 0 Then
Quitar = Replace(TextBox1.Value, "/", "")
TextBox1.Value = Quitar
End If
End Sub

Espero te sirva, y nuevamente pido disculpas. Salu-dos