как записать сортировку?

[mm00]

Дан строковый файл. Создать новый строковый файл, в котором строки
из исходного файла располагались бы в лексикографическом порядке, то
есть по возрастанию кодов их символов, начиная с первого символа.

[Streletz]

Попытки? Наработки? Что не получается?

[mm00]

Const bukvy = "abcdefghijklmnopqrstuvwxyz"
Const simvol = "0123456789"

Private Sub Command1_Click()
F = FreeFile
Open App.Path & "\Справка.txt" For Input As #F
Do Until EOF(F)
MyText = Input(1, #F)
AllMyText = AllMyText & MyText
Loop
Close #F
Text1.Text = AllMyText
End Sub

Private Sub Command2_Click()'сортировка
Dim i As Integer
Dim j As Integer
F = FreeFile
Open App.Path & "\Справка.txt" For Input As #F
For i = 1 To 26
For j = 1 To 30
If Left(MyText, j) = i Then
Print #F
Else
j = j + 1
i = i + 1
End If
Next j
Next i
End Sub