Сортировка данных в файле

Private Sub CommandButton1_Click()
' Відкриття файлу
On Error GoTo theend
Dim s As String
Dim ofm As String
intFH = FreeFile()
Open "D:\alala.txt" For Input As intFH
Do While Not EOF(intFH)
Line Input #intFH, ofm
s = s & ofm
Loop
Close #intFH
Dim text1() As String
Dim text2() As String
Dim x As Integer
Dim j As Integer
text2 = Split(s, "")
For x = 0 To UBound(text2)
If (Len(text2(x)) <> 0) Then
For j = 0 To UBound(text2)
ListBox1.AddItem (text2(j))
Next j
End If
Next x
theend:
End Sub
 
Private Sub CommandButton2_Click()
Dim s(100) As String
Dim temparr As String
Dim Sort(100) As String
 
i = 1
intFH = FreeFile()
Open "D:\alala.txt" For Input As #intFH
Do While Not EOF(intFH)
 Line Input #intFH, s(i)
 temparr = s(i)
 i = i + 1
 Loop
 Close #intFH
For j = 1 To i - 1
tmparr = Split(s(j), " ")
Sort(j) = tmparr(0)
Next
i2 = j - 1
j = 0
For i = 1 To i2 - 1
For j = i + 1 To i2
 If StrComp(Sort(i), Sort(j), vbTextCompare) > 0 Then
tmp = s(i)
s(i) = s(j)
s(j) = tmp
End If
Next
Next
 
 
 
End Sub
 
Private Sub CommandButton3_Click()
intFH = FreeFile()
Open "D:\alala.txt" For Output As #intFH
For j = 1 To i2
 
Print #intFH, s(j)
Next j
Close #intFH
 For j = 1 To i - 1
tmparr = Split(s(j), " ")
Sort(j) = tmparr(2)
Next
i2 = j - 1
j = 0
For i = 1 To i2 - 1
For j = i + 1 To i2
 If StrComp(Sort(i), Sort(j), vbTextCompare) > 0 Then
tmp = s(i)
s(i) = s(j)
s(j) = tmp
End If
Next
Next
 
intFH = FreeFile()
Open "D:\alala.txt" For Output As #intFH
For j = 1 To i2
 
Print #intFH, s(j)
Next j
Close #intFH
End If
End Sub
 
Private Sub CommandButton4_Click()
TextBox1.Value = ""
TextBox2.Value = ""
ListBox1.Clear
End Sub
 
Private Sub CommandButton5_Click()
Unload Me
End Sub

For x = 0 To UBound(text2)
If (Len(text2(x)) <> 0) Then
For j = 0 To UBound(text2)
ListBox1.AddItem (text2(j))
Next j
End If
Next x

s = s & ofm & vbcrlf

text2 = Split(s, vbcrlf)