Помогите с VBA, задача на нестандартные функции Опции

[zara44]

Вообщем, смотрите. Задача - Напишите нестандартную функцию, которая имеет четыре аргумента стороны треугольника и разрядность. В зависимости от значения аргумента разрядности данная функция возвращает значение медиан ( Ma = 1/2*(((2*b)^2+(2*c)^2-a^2)^(1/2)) и т.д.), при условии что треугольник существует. Если значение аргумента разрядность принимает другое значение, функция возвращает значение обшибку #ЧИСЛО! ПОЖАЛУЙСТА ПРОШУ, помогите...

Function ass(a, b, c, x)
If a > b Then m = a: s = b Else m = b: s = a
If m < c Then s = s + m: m = c Else s = s + c
If m < s Then
If x = 1 Then
     Ma = 1 / 2 * (((2 * b) ^ 2 + (2 * c) ^ 2 - a ^ 2) ^ (1 / 2))
     'и т.д.
End If
Else
    MsgBox "Тр-к не существует"
End If
End Function