VB Code:
If KeyAscii < 48 Or KeyAscii > 57 Then 'sets limits for characters Select Case KeyAscii 'sets case for the keys Case 8 Case Else KeyAscii = 0 End Select End If
for this what is case 8??
Printable View
VB Code:
If KeyAscii < 48 Or KeyAscii > 57 Then 'sets limits for characters Select Case KeyAscii 'sets case for the keys Case 8 Case Else KeyAscii = 0 End Select End If
for this what is case 8??
8 = backspace
BackSpace
Case vbKeyBackspace would be nicer :)