同じ処理をする場合まとめるには？ (ID:103667)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すいません初心者なのですが・ 以下の様にテキストボックスが9つあるんですけど、入力制限は同じなので、 全てが同じ記述になるのですが、まとめる方法ってあるんですか？ 誰か教えて下さい。 Private Sub Text1_KeyPress(KeyAscii As Integer) WKeyAscii = KeyAscii InpChkAscii If WKeyAscii = 0 Then KeyAscii = Clear End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) WKeyAscii = KeyAscii InpChkAscii If WKeyAscii = 0 Then KeyAscii = Clear End If End Sub 永遠と9つ続きます