Datumswert eingeben, ändern

Guten Abend,
ich möchte gern, das das Datum in der UF Textbox13, wenn man es ändern oder
einfügen möchte so eingegeben werden kann.
1-2-23 soll 01.02.2023 werden.
hier meine bisherige Makroausführung:

Private Sub TextBox13_AfterUpdate()
    ActiveCell.Offset(0, 12).Value = TextBox13.Value
    TextBox13.Value = ActiveCell.Offset(0, 12).Value
     TextBox14.SetFocus
With TextBox14
    .SetFocus
    .SelStart = 0
    .SelLength = Len(.Text)
End With
End Sub

TextBox13.Text = ActiveCell.Offset(0, 12).Value