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

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