не получаются задачи на vba excel

[Sir.Jucce]

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

и еще с одной проблемка, не знаю как сделать эти задания:

2.	Напишите процедуру, которая вычисляет для каждого столбца из диапазона, полученного в предыдущей задаче,  количество чисел, больших, чем 2. Запишите полученные резуль¬таты на Лист Excel под каждым столбиком. 
3.	Какому значению Х соответствует первое положительное значение Z?

Вот код программы:

Sub задача()
Range("A1").Value = "X"
Range("B1").Value = "Y"
Range("C1").Value = "Z"
Dim x As Single, y As Single, z As Single
Dim a As Single, b As Single, h As Single
i = 2
For x = 0 To 5 Step 0.2
If x > 3 And x <= 5 Then
y = (1 + x * Exp(-x)) / (2 + Sqr(x ^ 2 + Sin(x) ^ 2))
Else
y = (3 - (Cos(3 * x) + 5 * x + 7) ^ 1 / 4)
End If
z = 5 * Cos(3 * y)
Cells(i, 1).Value = x
Cells(i, 2).Value = y
Cells(i, 3).Value = z
i = i + 1
Next x
End Sub

ЗА РАНЕЕ ОЧЕНЬ ОГРОМНОЕ СПАСИБО!!!