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

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