Ya surement une methode plus clean mais sinon, dans l'évènement click sur le textbox, tu peut mettre
Text1.text = text1.text + "a"
Text1.text = left(text1.text,Len(Text1.text)-1)
C'est à dire que tu ajoute un carctère à la fin que tu effece aussitôt...
---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8