vb计算器(除法中)怎样才能保证字母和0除外

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 122) And KeyAscii <> 48 Then
Print "输入正确!"
End If
End Sub

就是检测输入 如果是字母与0 则不允许输入 将其键码排除.