можете обьяснить что делает этот код(каждый элемент)или напишите свою, метод хорд

Private Sub CommandButton1_Click()
Dim min As Double
Dim max As Double
Dim rootmin As Double
Dim rootmax As Double
Dim step As Double
Dim eps As Double
Dim i As Integer
 
If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) And IsNumeric(TextBox4) Then
Sheets("Лист1").Cells.Clear
min = CDbl(TextBox1)
max = CDbl(TextBox2)
step = CDbl(TextBox3)
eps = CDbl(TextBox4)
rootmin = 1
rootmax = 3.5
i = 1
For k = min To max Step step
Cells(i, "a") = min + step * (i - 1)
If True Then
Cells(i, "b") = hord(rootmin, rootmax, eps, k)
End If
i = i + 1
Next k
график
Else
MsgBox "Проверьте введенные данные"
End If
End Sub

Function hord(a, b, eps, s)
Dim x As Double
Dim ii As Integer
ii = 0
While Abs(b - a) > eps
x = a - ((b - a) * func(a, s)) / (func(b, s) - func(a, s))
If func(a, s) * func(x, s) < 0 Then b = x Else a = x
ii = ii + 1
If ii > 1000 Then
GoTo label
End If
Wend
label:
hord = x
End Function

Function func(x, s)
func = 0.3 * x ^ 3 - 2 * x * s + 4.75 * s ^ 3
End Function

Function hord(a, b, eps, s)
Dim x As Double
Dim ii As Integer
ii = 0
While Abs(b - a) > eps
x = a - ((b - a) * func(a, s)) / (func(b, s) - func(a, s))
If func(a, s) * func(x, s) < 0 Then b = x Else a = x
ii = ii + 1
If ii > 1000 Then
GoTo label
End If
Wend
label:
hord = x
End Function

Function hord(a, b, eps, s)
  Dim x As Double
  Dim ii As Integer
  ii = 0
 
  rem цикл, и находить в нём до тех пор, пока Abs(b - a) > eps
  While Abs(b - a) > eps
 
     rem сначала идёт обращение к функции Function func(x, s), а потом расчет х
     x = a - ((b - a) * func(a, s)) / (func(b, s) - func(a, s))
 
     rem сначала идёт обращение к функции Function func(x, s), а потом проверка по условию
     If func(a, s) * func(x, s) < 0 Then b = x Else a = x
 
     ii = ii + 1   'к предідущему значению ii прибавляем 1  - это счётчик какой-то
     
     If ii > 1000 Then   'при выполнении условия идти на строку label  (ниже по коду где-то)
       GoTo label
     End If
  Wend
  rem конец цикл, и находить в нём до тех пор, пока Abs(b - a) > eps
 
label:
  hord = x
End Function   'конец функции Function hord(a, b, eps, s)
 
 
 
вот и всё.

Function func(x, s)
func = 0.3 * x ^ 3 - 2 * x * s + 4.75 * s ^ 3
End Function
'Если это не ваша функция, то поставьте вашу во вторую строку, например
func = Sin(x)-x^2+10

Function func(y, x)
func = 0.3 * y ^ 3 - 2 * y * x + 4.75 * x ^ 3
End Function