Написать программный код по приведенной блок-схеме - VB

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

Ребята помогите плиз, программа есть в виде блок-схемы, но я чото туплю и немогу по ней составить программу.., ошибка с if-ами всё время.., блок-схема правильная. Суть программы в том, что есть уравнение: 2tg(x+7)=5sin(x) и получились корни на графике такие: -1,89; 2,92; и 4,39. И мне нужно с помощью этой программы, чтобы бэйсик вывел нам эти три корня.

Решение задачи: «Написать программный код по приведенной блок-схеме»

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

                            Private Sub Комманда1_Click()
 progr
End Sub
Sub progr()
 a = -2
 b = 5
 k = 0
 h = (b - a) / 2
 e = 0.000001
 
 For i = 1 To 3
               a1 = a + h * (i - 1)
               b1 = a + h * i
                
                If f(a1) * f(b1) < 0 And k < 3 Then
                        X1 = a1
1
Debug.Print a1, b1, f(a1), f(b1)
                        X2 = X1
                        X1 = (a1 + b1) / 2
                        
                                If f(X1) * f(b1) < 0 Then
                                        a1 = X1
                                Else
                                        b1 = X1
                                End If
                                
                                If Abs(X2 - X1) < e Then
                                           k = k + 1
                                Else
                                            GoTo 1
                               End If
Debug.Print a1, b1, f(a1), f(b1)
                    MsgBox f(X1), , (X1)
           End If
Next i
 
 
 End Sub
 Function f(x)
 f = 2 * Tan(x + 7) - 5 * Sin(x)
 End Function
                        