Subプロシージャについて教えてください。 (ID:126538)

名前

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

本文 本当に馬鹿みたいな質問だったら申し訳ありません。最近VBを触り始めた初心者です。まだまだ調べるのが下手なので教えて頂きたくて質問させていただきます。配列で作ったText1とText2に数字以外の文字を入力できないように制限をかけたいと思っています。まずSubプロシージャで Sub Limit() Select Case KeyAscii Case Asc("0") To Asc("9") Case Asc("-") Case vbKeyBack Case Else KeyAscii = 0 End Select End Sub と宣言し、 Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Limit End Sub Private Sub Text２_KeyPress(Index As Integer, KeyAscii As Integer) Limit End Sub としたいのですが実行すると数字以外の文字が入ってしまいます。 何がいけないのでしょうか？ どなたか教えてください。