Использование программ-функций в программах - VB

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

Помогите составить программу вычисления функции

, используя процедуру-функцию нахождения суммы. Информацию о сбойных ситуациях выдать с помощью функции MsgBoxДобавлено через 2 минуты 13 секунд Блин не могу вставить формулу через Equation......Что нужно сделать????

Решение задачи: «Использование программ-функций в программах»

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

                            Public Sub pr()
Dim x1, x2, x3, s1, s2, chislitel, znamenatel, y
Dim n1, n2
x1 = Cells(8, 2).Value ' присваивание переменной Х1 значения из ячейки В8
x2 = Cells(8, 3).Value ' присваивание переменной Х2 значения из ячейки С8
x3 = Cells(8, 4).Value ' присваивание переменной Х3 значения из ячейки D8
 
n1 = Cells(9, 2).Value ' присваивание переменной n1 значения из ячейки В9
n2 = Cells(9, 3).Value ' присваивание переменной n2 значения из ячейки С9
 
'проверка корректности переменных
If Not (IsNumeric(x1) And IsNumeric(x2) And IsNumeric(x3)) Then
MsgBox "в иксах есть не число!"
Exit Sub
End If
If Not (IsNumeric(n1) And IsNumeric(n2)) Then
MsgBox "в переменных n есть не число!"
Exit Sub
End If
 
If x2 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x2"
Exit Sub
End If
 
 
'обращение к процедуре -функции вычисления суммы s с фактическими параметрами х1 и n1
s1 = s(x1, n1)
If s1 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x1"
Exit Sub
End If
chislitel = Sqr(s1)
 
s2 = s(x3, n2)
If s2 < 0 Then
MsgBox "корень квадратный из отрицательного числа! Измените x3"
Exit Sub
End If
znamenatel = Sqr(x2) * Sqr(s2)
 
 
If znamenatel = 0 Then 'проверка знаменателя на 0
MsgBox "Деление на 0!"
Exit Sub
End If
 
y = chislitel / znamenatel 'вычисление искомой функции У
Cells(10, 1).Value = y 'запись результата У в ячейку А10
End Sub
'процедура вычисления суммы s с формальными параметрами знач, кол
Public Function s(знач, кол)
сум = 0
For i = 1 To кол
сум = сум + знач
Next i
s = сум
End Function
                        