Табулирование функций в VBA

[НатусяЯ]

Помогите пожалуйста найти ошибку, а то у меня неправильно считает

Dim a, b, xn, xk, h, y As Single
Private Sub CommandButton1_Click()
a = CSng(TextBox1.Text)
b = CSng(TextBox2.Text)
xn = CSng(TextBox3.Text)
xk = CSng(TextBox4.Text)
h = CSng(TextBox5.Text)
x = xn
ListBox1.Clear
ListBox1.AddItem ("x-->y")
Do While x <= xk
If a * x * x < b Then
y = Exp(-2 * x) * Cos(a * x)
End If
If Abs(a) >= x * x * x Then
y = Log(Abs(a * a * x / b * b * b)) / Log(10)
Else
y = (Atn(a * b * x * x)) ^ 2 - 4.7 - Sin(Abs(a - x))
End If
ListBox1.AddItem (Format(x, "0.00") + "-->" + Format(y, "0.00"))
x = x + h
Loop
End Sub

[НатусяЯ]

кто нибудь! пожалуйста)