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

Open "C:\bd.dat" For Append As #1
bd = InputBox("Ââåäèòå Íàèìåíîâàíèå")
bd2 = InputBox("Ââåäèòå Òèï Ïðîöåñîðà")
bd3 = InputBox("Ââåäèòå ×àñòîòó ïðîöåñîðà")
If bd <> "" And bd2 <> "" And bd3 <> "" Then
Print #1, "1."; bd
Print #1, "2."; bd2
Print #1, "3."; bd3
Print #1, ""
End If
Close #1

Text1.Text = ""
Open "C:\bd.dat" For Input As #1
Do While Not EOF(1)
Line Input #1, bd
Text1.Text = Text1.Text + bd + vbCrLf
Loop
Close #1

a = 1
b = 0
Open "bd.dat" For Input As #1
Do While Not EOF(1)
Line Input #1, bd
 
b = b + 1
 
bd4(a, b) = bd
If b > 3 Then
a = a + 1
b = 0
End If
Loop
Close #1
 
 
For a = 1 To 40
For b = 1 To 40
    If bd4(a, 2) <> "" Then
        If bd4(b, 2) <> "" Then
        If bd4(a, 2) < bd4(b, 2) Then
        
            sor1 = bd4(b, 1)
            bd4(b, 1) = bd4(a, 1)
            bd4(a, 1) = sor1
            
            sor2 = bd4(b, 2)
            bd4(b, 2) = bd4(a, 2)
            bd4(a, 2) = sor2
            
            sor3 = bd4(b, 3)
            bd4(b, 3) = bd4(a, 3)
            bd4(a, 3) = sor3
            
          End If
        End If
    End If
Next b
Next a
Open "bd.dat" For Output As #1
For a = 1 To 40
For b = 1 To 4
 
Print #1, bd4(a, b)
 
Next b
Next a
Close #1
 
 
Text1.Text = ""
Open "bd.dat" For Input As #1
Do While Not EOF(1)
Line Input #1, bd
Text1.Text = Text1.Text + bd + vbCrLf
Loop
Close #1