Пожалуйста помогите новичку с проверкой данных в TextBox - VB

Формулировка задачи:

Поскажите как установить контроль данных для вводимой информации. У меня нет Help MSDN для 6.0 VisualBasic. В частности, в TextBox мне нужно принять целое в диапазоне 1..99. Каков общий подход к решению таких проблем контроля данных. В книге дебильный пример с проверкой стандартного формата Дата.

Решение задачи: «Пожалуйста помогите новичку с проверкой данных в TextBox»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Text1_KeyPress(KeyAscii <font color="blue">As</font> <font color="blue">Integer</font>)
  <font color="blue">If</font> (KeyAscii > <font color="darkblue"><b>47</b></font> <font color="blue">And</font> KeyAscii < <font color="darkblue"><b>58</b></font>) <font color="blue">Or</font> (KeyAscii = <font color="darkblue"><b>8</b></font> <font color="blue">Or</font> KeyAscii = <font color="darkblue"><b>13</b></font>) <font color="blue">Then</font>
  <font color="blue">Else</font>
      MsgBox <font color="teal">"В этом поле ожидается ввод цифр!"</font>, vbOKOnly, <font color="teal">"Предупреждение"</font>
      KeyAscii = <font color="darkblue"><b>0</b></font>
  <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        