Не могу понять в чём ошибка (бэйсик) Помогите пожалуйста

Sub f()

m = Cells(1, 1)

n = Cells(2, 1)

k = Tan(m / Sqr(n)) 0) And (k 0.5) Then y = -(k - 0.5) ^ 2

p = Exp(1 - ^ 2)

Cells(3, 1) = k

Cells(4, 1) = y

Cells(5, 1) = p

End Sub