Format in Textbox

Hallo,
folgendes Beispiel zur einsicht. Im Grunde genommen, ist es vom Aussehen gesehen eigentlich genauso, wie ich es mir vorstelle.
Die Sache hat bestimmt mehrere, aber für mich nur einen sehr entscheidenden Haken. Ich kann die Backspace-Taste nicht nutzten! - Klar wie denn auch, ich lösche bis die Länge wieder 14 ist und dann verlängert er den Text automatisch wieder. Bin also ähnlich einer Enschlosschleife in der Textbox gefangen.
Kennt einer 'ne Lösung das zu umgehen?

Private Sub TextBox1_Change()
If Len(TextBox1) = 2 Then
If InStr(TextBox1, " ") = 0 Then
TextBox1 = TextBox1 & " "
End If
ElseIf Len(TextBox1) = 5 Then
If InStr(4, TextBox1, " ") = 0 Then
TextBox1 = TextBox1 & " "
End If
ElseIf Len(TextBox1) = 9 Then
If InStr(7, TextBox1, " ") = 0 Then
TextBox1 = TextBox1 & " "
End If
ElseIf Len(TextBox1) = 14 Then
If InStr(11, TextBox1, " ") = 0 Then
TextBox1 = TextBox1 & " ."
End If
End If
End Sub
Private Sub UserForm_Activate()
TextBox1.MaxLength = 19
End Sub

Für eure Hilfe wäre ich sehr dankbar.
Mit freundlichen Grüßen
Richard E.
p.s. Hab diesbezüglich eigentlich noch mehr auf dem Herzen, aber will erstmal sehen, wie sich der Thread entwickelt, vielleicht komm ich ja dann schon selber auf die Antwort.