Из текстового файла считываем все слова и выводим их в другой файл по алфавиту - VB

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

Здравствуйте, помагите пожалуйста с задачей для VB не выше 6.0 версии

Из текстового файла считываем все слова и выводим их в другой файл по алфавиту.

в итоге программа должна делать вот такое с текстом: Исходный текст:

this program for sortirovaka.

Обработанный текст:

for program sortirovka this

Спасибо большое, зарание

Решение задачи: «Из текстового файла считываем все слова и выводим их в другой файл по алфавиту»

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

                            Option Explicit
Private Sub Form_Load()
    Dim word$, words_arr$(), Count&, i&, flag As Boolean
    
    Count = 0
    Open "c:\progs\source.txt" For Binary As #1
        word = Space$(LOF(1))
        Get #1, , word
    Close #1
    word = Trim$(word)
    words_arr = Split(word, " ")
    Count = UBound(words_arr) + 1
    
    Do
        flag = False
        For i = 0 To Count - 2
            If words_arr(i) > words_arr(i + 1) Then
                word = words_arr(i)
                words_arr(i) = words_arr(i + 1)
                words_arr(i + 1) = word
                flag = True
            End If
        Next
    Loop While flag
    
    Open "c:\progs\result.txt" For Output As #1
        For i = 0 To Count - 1
            Print #1, Trim$(words_arr(i)) & " ";
        Next
    Close #1    
End Sub
                        