TextBoxに１文字づつ入力するごとにチェックをしたいのですが、
つまり、１文字づつ入力するごとに、入力した文字が該当する文字
かチェックし、該当外の場合は、MsgBoxを表示し、以後の入力を不可
にし、該当文字の場合は、以後の入力及びチェックをするようにしたい
のですが、どうすればよいのですか。

txtData_Changeをかを使用し、そのアクションで、1文字づつ取得し
チェックするという方法ですか。

ちなみに、入力される文字は、半角英数字です。

簡易的にチェックするなら　KeyPress イベントで Ascii コードをチェックすれば
できますが、貼り付けされた場合にはチェックが出来ません。
従って、Change イベントで都度1文字づつ調べる事になるかと思います。
ただ、テキストボックスで長文を入力するような場合は、パフォーマンスが悪くなります。
そのような場合は、都度チェックするのではなく、LostFocus 時にチェックするなど状況に
合せて使い分けするのがいいかと思います。
ここの テキストボックスに数値しか入力出来ないように制限する関数（改良型）も参考に
なるかと思います。

> 簡易的にチェックするなら　KeyPress イベントで Ascii コードをチェックすれば
> できますが、貼り付けされた場合にはチェックが出来ません。
> 従って、Change イベントで都度1文字づつ調べる事になるかと思います。
> ただ、テキストボックスで長文を入力するような場合は、パフォーマンスが悪くなります。
> そのような場合は、都度チェックするのではなく、LostFocus 時にチェックするなど状況に
> 合せて使い分けするのがいいかと思います。
> ここの テキストボックスに数値しか入力出来ないように制限する関数（改良型）も参考に
> なるかと思います。

30文字なので、Changeイベントでやって見ようと思っています。
また、入力した文字の訂正とかも考えており、[BackSpace]キーで削除後、再度、入力して
チェックしたいのですが、カーソルがある位置、文字が入力された位置を知ることは可能
なのでしょうか。

> 30文字なので、Changeイベントでやって見ようと思っています。
> また、入力した文字の訂正とかも考えており、[BackSpace]キーで削除後、再度、入力して
> チェックしたいのですが、カーソルがある位置、文字が入力された位置を知ることは可能
> なのでしょうか。

ここの テキストボックスに数値しか入力出来ないように制限する関数（改良型）を見て下さい。

ありがとうございます。
おかげで、できました。

> TextBoxに１文字づつ入力するごとにチェックをしたいのですが、

　KeyPress イベントは使えそうですか？

　Private Sub Text1_KeyPress(KeyAscii As Integer)

　　Debug.Print Chr(KeyAscii)

　End Sub