Formatowanie dat MM / DD / RRRR w polu tekstowym w VBA

Szukam sposobu, aby automatycznie sformatować datę w polu tekstowym VBA do formatu MM / DD / RRRR, i chcę, aby formatował się podczas wpisywania przez użytkownika. Na przykład, gdy użytkownik wpisze drugą numer, program automatycznie wpisze „/”. Teraz mam to działające (podobnie jak drugi myślnik) z następującym kodem:

Private Sub txtBoxBDayHim_Change()
    If txtBoxBDayHim.TextLength = 2 or txtBoxBDayHim.TextLength = 5 then
    txtBoxBDayHim.Text = txtBoxBDayHim.Text + "/"
End Sub

Teraz działa świetnie podczas pisania. Jednak przy próbie usunięcia nadal wpisuje się w myślniki, więc użytkownik nie może usunąć przeszłości po jednym z kresek (usunięcie myślnika ma długość 2 lub 5, a następnie sub jest uruchamiany ponownie, dodając kolejna kreska). Jakieś sugestie dotyczące lepszego sposobu na to?

questionAnswers(9)

yourAnswerToTheQuestion