適当な処理です。注意。
LongにTextを入れるとエラーになるのを利用
まずは宣言
Dim strText as String
TextBoxのChangeイベントで、
Dim lngText as Long
On Error GoTo Error
'エラーになったらErrorに飛ぶ
lngText=Text1.Text
strText=Text1.Text
Exit Sub
Error:
Text1.Text=strText
ふぇぇ。適当だな。動けばいいって感じですなぁ。
夜3時に寝る直前にパッと思いついたものなので参考にしないのが吉。
もっとましな処理はいろいろなサイトに載ってるからね。