[0urangeapple]

---

Is there any shortcut or shorter code for removing letters and special characters in a textbox?
I always use..

Private Sub text1_Change()
If Not IsNumeric(text1.Text) Then
text1 = ""
End If
End Sub

...and its pretty much tiring to change every single 'text1's into the different textnames.. especially when there's like 20 or more textboxes to be revised.

~

[Core]

Basically, your code does the job. Speaking about multiple controls, what about creating a control array and then loop through each text box control to apply your code?

You can find out more in this MSDN article:

http://msdn.microsof...18a(VS.80).aspx