Как отсортировать числа

Private Sub Form_Load()
Dim MyFile 'Объявляем переменную для свободного файла
Dim I As Integer 'Переменная для цикла
Dim Tmp As String
Dim S(0 To 8) As Integer 'Переменная для хранения окончательных данных
Dim J As Integer, Z As Integer 'Переменные сортировки
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("E:\in.txt") For Input As #MyFile 'Открываем файл in.TXT для чтения
For I = 0 To 8
Line Input #MyFile, Tmp 'Читаем файл in.TXT построчно
S(I) = CInt(Tmp)
Next I
Close MyFile 'Закрываем файл
'------------------------------------------------------------
'Сортировка простыми обменами, сортировка пузырьком
 
        For I = 0 To 9 - 1 Step 1
            For J = 0 To 9 - 2 - I Step 1
                If S(J) > S(J + 1) Then
                    Z = S(J)
                    S(J) = S(J + 1)
                    S(J + 1) = Z
                End If
            Next J
        Next I
'-----------------------------------------------------------
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open ("E:\out.txt") For Output As #MyFile 'Открываем файл out.TXT для записи
For I = 0 To 8
Print #MyFile, S(I)
Next
Close #MyFile 'Закрываем файл
End Sub

Private Sub Form_Load()
 
 Dim Vasia, Kolia As String
   Vasia = "программа которая, "
   Kolia = "уметь сартировать числа"
   Print  Vasia & Kolia
 
End Sub