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

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

У меня есть задание: есть файла in.txt out.txt в файле in.txt 9 чисел 3 5 7 9 11 88 3 7 0 Мне надо отсортировать и скопировать из файла in.txt в out.txt чтобы они были в порядке 0 3 3 5 7 7 9 11 88 Как это сделать?

Решение задачи: «Как отсортировать числа»

textual
                            Листинг программы 
                        

                            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
                        