Ошибки в составлении функции в VB6.0

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

Сама функция:

Спойлер

Написал ее на языке VB

Спойлер

НО:когда нажал "play" появилось окно, кликнул и потом debug:

Спойлер

Решение задачи: «Ошибки в составлении функции в VB6.0»

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

                            Private Sub Command1_Click()
    Dim x As Double, y As Double
    x = CDbl(Replace(InputBox("", , 0.7), ".", ","))
    y = (Atn(0.785 * x / Sqr(1 - 0.616 * x ^ 2)) - Log(x ^ 2) / Log(10) + 2 * x) / Sqr(x * Sqr(x * Sqr(x + 4)) + 2 * x)
    MsgBox y
End Sub
                        