زدن یک سری عدد های مشخص در تکست باکس!!

[Veteran]

سلام دوستان با این کد
Select Case KeyAscii
Case 8, 48 To 58:
Case Else
KeyAscii = 0
End Select

الان فقط میشه عدد زد توی تسکت باکس
اما من میخوام توی تسکت باکس فقط بشه عدد 1 تا 9 زد میشه راهنمایی کنین

[محسن واژدی]

سلام
به این شکل درست میشه:


Select Case KeyAscii
Case 8, 48 To 58
If KeyAscii = vbKey0 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select


موفق باشید