Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 31 Then
        Text1.Text = Text1.Text & Chr(KeyAscii) & "1"
        KeyAscii = 0
        Text1.SelStart = Len(Text1.Text)
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...