Пожалуйста подскажите - обработка(описание) ошибок - VB

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

помогите пожалуйста студентке 3 курса:(
на форме текстовые поля, они "ссылаются" на БД.
Нужно сделать так, чтобы допустим нажим. на кнопку СОЗДАТЬ при вводе в текстовое поле чисел - была ОШИБКА например "Неправильный ввод данных" или что-ниб. в этом роде
или например - нажимая на кнопку СОХРАНИТЬ - если совсем ничего в поля не вводить - появл. ОШИБКА "Неверная запись" или "Пустая форма"
как это воплотить в коде?
заранее спасибо, что потратили свое время на написание мне ответа :)

Решение задачи: «Пожалуйста подскажите - обработка(описание) ошибок»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()
 
 <font color="blue">If</font> TextBox1 = <font color="teal">""</font> <font color="blue">Or</font> TextBox2 = <font color="teal">""</font> <font color="blue">Then</font>
    MsgBox <font color="teal">"не все заполнены"</font>
    <font color="blue">Exit</font> <font color="blue">Sub</font>
 <font color="blue">End</font> <font color="blue">If</font>
 
 <font color="blue">If</font> IsNumeric(TextBox1) <font color="blue">Then</font>
    MsgBox TextBox1.<font color="blue">Name</font> & <font color="teal">" - введено число, а нужен текст"</font>
    <font color="blue">Exit</font> <font color="blue">Sub</font>
 <font color="blue">End</font> <font color="blue">If</font>
  
 <font color="blue">If</font> <font color="blue">Not</font> IsNumeric(TextBox2) <font color="blue">Then</font>
    MsgBox TextBox2.<font color="blue">Name</font> & <font color="teal">" - необходимо число"</font>
    <font color="blue">Exit</font> <font color="blue">Sub</font>
 <font color="blue">End</font> <font color="blue">If</font>
 
 Range(<font color="teal">"A65536"</font>).<font color="blue">End</font>(xlUp).Offset(<font color="darkblue"><b>1</b></font>).Value = TextBox1
 Range(<font color="teal">"B65536"</font>).<font color="blue">End</font>(xlUp).Offset(<font color="darkblue"><b>1</b></font>).Value = TextBox2

<font color="blue">End</font> <font color="blue">Sub</font>
                        