Написать программу через обработчик ошибок

[investr]

Задание 1:

Sub задание 1()
Dim a as double, b as double, c as double
x = InputBox("введите x", "ввод данных")
y = InputBox("введите y", "ввод данных")
Z = InputBox("введите z", "ввод данных")
a = y 
b = Z 
c = x 
f = x / a + y / b + Z / c
MsgBox "f=" & f, , "Ответ"
End Sub

Задание 2:

Sub задание 2()
Dim a, x, c As Double
a = InputBox("Введите число", "Ввод числа")
x = a * a
If (a Mod 10) = (x Mod 10) Then
MsgBox ("Введенное число является автоморформным")
Else
MsgBox ("Введенное число не является автоморформным")
End If
End Sub

[Ципихович Эндрю]

и что дальше?