Trap Numbers Input in VB6


hello guys this code are really help you by limitting the user to input a number on a textbox to avoid error like Invalid data type if you are working on database he code will look like this If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then KeyAscii = 0 End If for more vb codes just visit me at or hope this will help thanks and enjoy!!!!

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.


1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.



Submitted byAnonymous (not verified)on Wed, 05/12/2010 - 14:14

nice code

Add new comment

This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
3 + 10 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.