Visual Basic - Ayuda con Keypress

Ya encontre como manipular KeyPress
y tengo este codigo que me funciona muy Bien
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48
Number_Click (0)
Case 49
Number_Click (1)
Case 50
Number_Click (2)
Case 51
Number_Click (3)
Case 52
Number_Click (4)
Case 53
Number_Click (5)
End Select
End Sub

Pero como hago para usar el el Betweent(KeyAscii,48,57)
y como llamo al sub del Number_Click (0) si el KeyAscii va a ser 48, 0 55 Etc.

Gracias

bueno lo que yo opino es que en ves de hacer eso, es que lo uses por su codigo ASCII, es mas practico, asi sabes cual tecla se aprieta,

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is < 48, Is > 58
MsgBox "Sólo se permiten números"
End Select
End Sub

Reemplaza is < 48, is > 58 por is < asc("0"), is > asc("9")