Вывод сортировки массива в виде таблицы - VB

Формулировка задачи:

все доброго времени суток, помогите пожалуйста прикрутить к коду вывод в виде таблицы(при помощи msflexgrid), массив берется из файла, сортировка методом простых вставок вот часть всей программы

                    Листинг программы
                
 
                        
                          
                    
Dim X(100) As String
Dim w(100) As Integer
Dim Tmp As Double
Dim k As Long
Dim t As Long
Private am(0 To 5000), qm(0 To 1000), mm(0 To 5000) As Double
 
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
p = 1
j = 0
a = Text1
If Text1 <> "" Then
Open a For Input As 1
Do While Not (EOF(1))
Input #1, m
For i = 1 To Len(m)
y = Mid(m, i, 1)
If y = " " Then
j = j + 1
X(j) = Mid(m, p, i - p)
p = i + 1
End If
Next i
j = j + 1
X(j) = Mid(m, p, Len(m))
For i = 1 To j
Picture1.Print X(i)
Next i
Loop
Close #1
For i = 1 To j
w(i) = CInt(X(i))
Next i
End If
End Sub
 
Private Sub Command2_Click()
If X(1) <> "" Then
For i = 1 To 10
B = w(i)
j = 1
Do While B < w(j)
j = j + 1
Loop
For k = i To j + 1 Step -1
w(k) = w(k - 1)
Next k
w(j) = B
Next i
End If
For i = 1 To 10
Picture2.Print w(i)
Next i
End Sub

заранее спасибо

Решение задачи: «Вывод сортировки массива в виде таблицы»

textual
                            Листинг программы 
                        
For i = 1 To 10
Picture2.Print w(i)
MSFlexGrid1.TextMatrix(0, i) = w(i) - если в строчку
MSFlexGrid1.TextMatrix(i, 0) = w(i) - если в столбик
Next i