Подскажите что не так?

Дана такая задача (Нужно создать функцию в Excel (VBA))

Даны a и b. Если a и b попадают в область а < 0 и b > 0, то вычислить значение y по формуле

y = а2 +2 b, иначе

2*x^2 – 5x – 6, если x > 5
y = x /10 - 3, если x = 5
2*x – x^2 + 10, если x < 5

для произвольного x.

Это моя программа.

Function Формула (a As Single, b As Integer, x As Single) As Single
If a < 0 And b > 0 Then
y = a ^ 2 + 2 * b
ElseIf x > 5 Then
y = 2 * x ^ 2 - 5 * x - 6
ElseIf x = 5 Then
y = x / 10 - 3
ElseIf x < 5 Then
y = 2 * x - x ^ 2 + 10
End If
End Function

Когда пытаюсь запустить функцию в Excel мне пишет что неправильная функция.
В чем проблема?