Полином Ньютона в VBa

[Batton]

помогите с кодом в Vba полиномом ньютона

Не получается сделать код для полинома ньютона код щас приложу, заполение идет из листбокса, все равно понять не могу где ошибка..(((((( помогите плиз))

Function Newton(h, X, xe, ye, n)
Dim i As Integer
Dim j As Integer
Dim p As Double
Dim v As Double
Dim dy() As Variant
ReDim dy(n, n)
p = 1
For i = 1 To n
dy(i, 1) = ye(i)
Next i
For j = 2 To n
For i = 1 To n + 1 - j
dy(i, j) = dy(i + 1, j - 1) - dy(i, j - 1)
Next i
Next j
For j = 2 To n
v = 1
For i = 2 To j
v = v * (X - xe(i - 1, 1)) / (i - 1) / h
Next i
p = p + v * dy(1, j)
Next j
Newton = p
End Function

[Batton]

Не получается сделать код для полинома ньютона код щас приложу, заполение идет из листбокса, все равно понять не могу где ошибка..(((((( помогите плиз))

Function Newton(h, X, xe, ye, n)
Dim i As Integer
Dim j As Integer
Dim p As Double
Dim v As Double
Dim dy() As Variant
ReDim dy(n, n)
p = 1
For i = 1 To n
dy(i, 1) = ye(i)
Next i
For j = 2 To n
For i = 1 To n + 1 - j
dy(i, j) = dy(i + 1, j - 1) - dy(i, j - 1)
Next i
Next j
For j = 2 To n
v = 1
For i = 2 To j
v = v * (X - xe(i - 1, 1)) / (i - 1) / h
Next i
p = p + v * dy(1, j)
Next j
Newton = p
End Function