Private Sub Text1_Change()
    Const a As String = "1"
    'Buchstabe mit der Zahl ersetzen
    Text1.Text = Replace$(Text1.Text, "a", a, , , vbTextCompare)
    'Curser an das Textende setzen
    Text1.SelStart = Len(Text1.Text)
End Sub