полиномы лагранж канонический и ньютона в VBA

[gagala]

Помогите пожалуйста!!!!!СРОЧНО!!!!ОЧЕНЬ!!!!

Надо сначала сделать в модуле лагранж ньютон и канонический полиномы потом в юзерформе!!
х и у надо считывать с листбокса
yn заносить текст бокс и при нажатии optionbutton 1,2 или 3 он выдавал полиномы..

с текстбоксами юзерформа работает..с листобоксом не могу понять!!

Option Base 1
Function Newton(h, x, xe, ye) As Double

Dim dy() As Variant
Dim n As Double
Dim p As Double

Dim i As Byte
Dim j As Byte
Dim m As Byte

m = 4
ReDim dy(4, 4)
For i = 1 To m
dy(i, 1) = ye(i)
Next i

For j = 2 To m
For i = 1 To m + 1 - j
dy(i, j) = dy(i + 1, j - 1) - dy(i, j - 1)
Next i
Next j
n = ye(1)

For j = 2 To m
p = 1
For i = 2 To j
p = p * (x - xe(i - 1)) / (i - 1) / h
Next i
n = n + p * dy(1, j)
Next j
Newton = n
End Function
Function lagr(x, xe, ye) As Double

Dim i As Integer
Dim j As Integer
Dim n As Integer

Dim p As Double
Dim l As Double

n = 4

l = 0
For j = 1 To n
p = 1
For i = 1 To n
If j <> i Then p = p * (x - xe(i)) / (xe(j) - xe(i))

Next i
l = l + p * ye(j)
Next j
lagr = l

End Function

Function Canon(x, xe, ye) As Double

Dim mx() As Variant
Dim c() As Variant

n = UBound(xe)

ReDim mx(n, n), minv(n, n)
ReDim c(n)

For i = 1 To n
For j = 1 To n

mx(i, j) = xe(i) ^ (n - j)

Next j
Next i

'c = Application.MMult(Application.MInve rse(mx), ye)
minv = Application.MInverse(mx)

Canon = 0
For i = 1 To n
c(i) = 0
For j = 1 To n
c(i) = c(i) + minv(i, j) * ye(j)
Next j

Canon = Canon * x + c(i)
Next i
End Function