Форум UPgrade

Всем добрый день! Вопрос: на форме VB6 есть поле text требуется запретить пользователю вводить туда буквы. То есть что-то типа: если введен любой буквенный символ то exit sub" иначе то есть если введена цифра продолжи выполнение программы. Я попробовал так:
if not text1.text = Val(text1.text) then msgbox"error" exit sub. И еще вот так (по моему тоже самое) if text1.text <> Val(text1.text) then .......тоже самое. Результатом является ошибка несоотвествия типа (type.mismatch). Какое условие задать чтобы оно выполнялось без ошибки?

1) Ошибка типов в варианте "РАВНО" лечится приведением числа к строке заменить на
2) Не скажу за шестой, но в 2005, 2008м есть контрол, звать NumericUpDown - для ввода чисел пользую его. В нем же удобно задать разделение триад - что для больших чисел есть весьма удобно.

Вот еще по теме http://www.vbstreets.ru/VBdotNET/Articles/65960.aspx

Вот еще по теме http://sources.ru/vb/controls/accept_te ... bers.shtml