Функции пользователя - VB

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

Всем привет! Совсем никак не могу составить программу для функции пользователя: Y= (корень (x1-x2)) : (сумма x3 - сумма x4) Причем, информацию о сбойных ситуациях выдать с помощью функции MsgBox. Суммирование аргументов функции реализовать через циклы. Одну сумму – с помощью цикла For…, другую – циклом Do… Если кто нибудь что нибудь понял из моих записей, прошу помощи... Прям очень нужно, преподаватель совсем не хочет ничего объяснять

Решение задачи: «Функции пользователя»

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

                            Public Function функция(x1, x2)
 
Z = 0
a = 0
b = 0
 
For i = 1 To 3
a = a + x1
Next i
 
i = 1
Do While i <= 7
b = b + x2
i = i + 1
Loop
 
If Sin(x1) = 0 Or Cos(x2) = 0 Then
функция = "Произошла сбойная ситуация - деление на ноль"
Exit Function
Else
функция = a / Sin(x1) + b / Cos(x2)
End If
 
End Function
                        