Написать программу вычисления функции - VBA

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

ДД! Подскажите пожалуйста. Вот задание: Написать программу вычисления функции y=f(x). Заполнить таблицу значений при x[a,b] с шагом h . a,b,h вводятся с клавиатуры (если эти величины в задании выражены через \pi , то их следует предварительно рассчитать); вывод результатов осуществляется в два столбика ( x=... y=....) с точностью до 6 знаков после запятой. Я сделала, но что то не пошло. У меня на форме UserForm1

Решение задачи: «Написать программу вычисления функции»

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

                            Private Sub CommandButton1_Click()
Dim a As Single, x As Single
Dim b As Single
Dim h As Single
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
h = Val(TextBox3.Text)
Label1.Caption = ""
Label5.Caption = ""
'MsgBox " a=" & TextBox1.Text & "   " & a
For x = a To b Step h
  If x <= 0.17 Then
    f = 12 * Log(Sin(x)) + 1.25
  Else
    f = 0.15 * Sin(x ^ 2 - 2 * x) * Exp(x + 1)
  End If
  Label4.Caption = Label4.Caption & Round(x, 2) & Chr(13)
  Label5.Caption = Label5.Caption & Round(f, 4) & Chr(13)
Next x
End Sub
                        