テキストボックスに数値以外の入力ができないようにする方法

テキストボックスに数値以外の入力ができないようにする方法
動作環境	Windows95/98	開発環境	Visual Basic 6.0 (+SP2)
説明	テキストボックスに入力できるデータを制限（数値以外の入力不可）します。
用意するもの：標準フォーム(Form1)、テキストボックス(Text1)
Private Sub Text1_KeyPress(KeyAscii As Integer) '押されたキーがBackSpace、Enter以外の場合で、 If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyReturn Then 'キーコードの値が"48"(0)から"57"(9)以外の入力があったときは、 If KeyAscii < 48 Or KeyAscii > 57 Then '警告音を鳴らして、 Beep 'キー操作を取り消します。 KeyAscii = 0 End If End If End Sub