by raghuraja. C (21 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 17th February 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This function will allow only Numbers in text boxed
On Error GoTo LOCALERRORHANDLER
If (KPress >= 48 And KPress <= 57) Or KPress = 8 Or KPress = 13 Then
fnOnlyNumber = KPress
Else
fnOnlyNumber = 0
End If
Exit Function
LOCALERRORHANDLER:
fnOnlyNumber=0