Подскажите

[ForcE]

Подскажите пожалуйста как вывести результат вычислений (на экран, либо в файл). И как вызвать эту функцию с клика. Вот код, который считает:

Public Function LESGaussSolve(ByRef A_() As Double, _
ByVal N As Long, _
ByRef X() As Double, _
ByVal Epsilon As Double) As Boolean
Dim Result As Boolean
Dim A() As Double
Dim k As Long
Dim u As Long
Dim m As Long
Dim j As Long
Dim i As Long
Dim t As Double
A = A_

ReDim x(1 To n)
u = 0
Result = True
Do
u = u+1
k = u
Do While Abs(a(k,u))<=Epsilon And k<n
k = k+1
Loop
If k<>n Or Abs(a(n,u))>Epsilon then
If k<>u then
m = u
Do
t = a(u,m)
a(u,m) = a(k,m)
a(k,m) = t
m = m+1
Loop Until Not m<=n+1
End If
j = n+1
Do
a(u,j) = a(u,j)/a(u,u)
j = j-1
Loop Until Not j>=u
m = n+1
If k+1<=n then
i = k+1
Do
j = u+1
Do
a(i,j) = a(i,j)-a(i,u)*a(u,j)
j = j+1
Loop Until Not j<=m
i = i+1
Loop Until Not i<=n
End If
Else
Result = False
End If
Loop Until Not (u<>n And Result)
If Result then
i = n
Do
x(i) = a(i,m)
If i<>1 then
k = i-1
Do
a(k,m) = a(k,m)-a(k,i)*x(i)
k = k-1
Loop Until Not k>=1
End If
i = i-1
Loop Until Not i>=1
End If

LESGaussSolve = Result
End Function

[Vitaly1]

Что бы эту функцию с клика вывести очень много придется делат. Установить покрайней мере один Grid на форму, в котором будут вводится значение массивов, потом сделать алгоритм переписки этих значений в массив....