by Narayanan Thiagarajan (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 5th June 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
The code below allow the users to enter only numbers.
Select Case Chr(KeyAscii)
Case "0" To "9"
Case vbBack
Case Else
KeyAscii = 0
MsgBox "Accepts Only Numbers !!!", vbExclamation, "Invalid"
End Select
End Sub