Обработка ошибок - VB

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

Доброго времени суток
Проблема следующая:
есть фрагмент кода

s1, s2  
   s1 = control.TextBox2.Value
   s2 = control.TextBox3.Value
   pDate = CDate(s1)
   pDateE = CDate(s2)

если пользователь вводит билиберду в TextBox, имеет место ошибка с номером 13(type mismatch).
Как отловить эту ошибку и вывести сообщение?
--------------------------------------------------------
Если на планирование нет времени - самое время заняться планированием.

Решение задачи: «Обработка ошибок»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> Text1_Validate(Cancel <font color="blue">As</font> <font color="blue">Boolean</font>)
<font color="blue">If</font> <font color="blue">Not</font> IsDate(Text1) <font color="blue">Then</font>
    MsgBox <font color="teal">"Please type date in correct format: "</font> & <font color="blue">Date</font>, vbCritical, <font color="teal">"error"</font>
    Cancel = True
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        