ПОМОГИТЕ ПОЖАЛУЙСТА решить в VBA и вывести в excel

Sub p1()    Dim x As Double, y As Double    x = InputBox("Введите x")    y = InputBox("Введите y")    Cells(3, 1) = x * y / (x + y) * Atn((1 - x ^ 2 * y ^ 2) ^ -0.5) 'Вывод в A3End Sub