Обработка событий TextBox - VB

Формулировка задачи:

На форм TetBox. Необходим только ввод цифр. Подпрограмма обработки:

Private Sub Text1_KeyPress(KeyAscii As Integer)        'Ввод только чисел
   Select Case KeyAscii
    Case Asc("0") To Asc("9"), vbKeyBack, vbKeyDelete
    Case Else
    KeyAscii = 0
    End Select
End Sub

Как ни странно, вводится точка, хотя никак не должна.

Решение задачи: «Обработка событий TextBox»

textual
                            Листинг программы 
                        

                            Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)       'Ввод только чисел
    Select Case KeyCode 
    Case (vbKey0,vbKey1,vbKey2,vbKey3,vbKey4,vbKey5,vbKey6,vbKey7,vbKey8,vbKey9, vbKeyBack, vbKeyDelete)
    Case Else
    KeyCode = 0
    End Select
End Sub
                        