в чём ошибка?
Sub main()
Dim x, b, a, res As Single
x = -3
b = 2
a = 0.5
res = (Sqr(5 * x ^ 2 + 2 * Sin(b) ^ 2)) / Cos(Abs(a3 ^ -3 * Tan(b)))
MsgBox (res)
End Sub

спасибо, слона то и не заметил ))), a3 это "a" в кубе)))

Ошибка тут:res = (Sqr(5 * x ^ 2 + 2 * Sin(b) ^ 2)) / Cos(Abs(a3 ^ -3 * Tan(b)))Переменная a3 не определена