Разработать информационную технологию вычисления приближённого значения корня уравнения

Dim x, y As Double                           //переменные
Private Sub Command1_Click()           //кнопка 1
x = 1.2                                          //первое приближение
    Do Until x = y                             //начало цикла, делаем пока не выполняется это
    y = x                                    
    x = 2 - Sin(1 / x)                        //вынес Х в другую сторону уравнения, каждый раз уравнение считается все точнее и точнее
    Loop                                        //конец цикла
Text1.Text = y                              //вывод ответа в текстбокс1
End Sub

Function root(x As Double, eps As Double)
    xx# = 2 - Sin(1 / x)
    If Abs(xx# - x) < eps Then
       root = xx#
    Else
       root = root(xx#, eps)
    End If
End Function
 
Sub test()
    Debug.Print root(1.2, 0.0000000001)  ' вывод: 1.30766271563161 
End Sub