Private Sub Text1_Change()
    If Right(Text1.Text, 1) <> "1" Then
        Text1.Text = Text1.Text & "1"
    End If
    Text1.SelStart = Len(Text1.Text)
End Sub

mfg
brave@heart

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