Вычислить функцию с использованием команд меню - VB

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

Вобщем с помощью меню эдитор я создал 4 кнопки , func - Вычислить функцию, end - End , cls_list - очистить, ism_int - изменить интервал. Проблема заключается в том, что этот код специально испорчен и его нужно вернуть в нормальное положение и добавить какую-то строку, чтобы программа не работала. Насчёт xk я разобрался, но решил не каверкать и показать Вам, т.к сам не понимаю, в чём ошибка

Option Explicit
 
Private Sub cls_List_Click()
List1.Clear
End Sub
 
Private Sub end_Click()
End
End Sub
 
Private Sub func_Click()
Dim x, x0, a, b, a1, b1, h As Single
Dim i, n As Integer
x0 = Text1.Text
xk = Text2.Text
h = Text3.Text
n = Int((xk - x0) / h)
List1.AddItem " a    b "
For i = 1 To n
a = x + 4.4: b = a * x + 1.23
a1 = Format(a, "###.##")
b1 = Format(b, "###.##")
List1.AddItem "" & CStr(a1) & " " & CStr(b1)
x = x + h
Next
End Sub
 
Private Sub ism_int_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
End Sub

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

textual
                            Листинг программы 
                        
                            For i = 1 To n