1. Einlesen der Zeilen in ein Array
   Array sortieren
   
2. Array wieder in die Datei speichern
   

<code>  Dim F As Integer
  Dim nCount As Long
  Dim sLine As String
  Dim sLines(3) As String
  Dim sFile As String
  Dim sFileSort As String
  Dim HRBNr As String
  Dim I As Integer
 
  <font color=green>' zu sortierende Datei</font>
  sFile = App.Path & "muster.txt"
  sFileSort = App.Path & "muster_sort.txt"
 
  <font color=green>' Datei öffnen und zunächst alle Datensätze einlesen</font>
  F = FreeFile
  Open sFile For Input As #F
  nCount = 0
  While Not EOF(F)
    nCount = nCount + 1
    Line Input #F, sLines(nCount)
 
    If nCount = 3 Then
      <font color=green>' Ende eines Datensatzes (nach 3. Zeile)</font>
      HRBNr = Mid$(sLines(2), InStr(sLines(2), "HRB-Nr"))
 
      <font color=green>' Datensatz der ListBox hinzufügen</font>
      List1.AddItem HRBNr + "|" + sLines(1) + vbCrLf + sLines(2) + vbCrLf + _
        sLines(3)
      nCount = 0
    End If
  Wend
  Close #F
 
  <font color=green>' sortierte ListBox speichern</font>
  F = FreeFile
  Open sFileSort For Output As #F
  With List1
    For I = 0 To .ListCount - 1
      sLine = Mid$(.List(I), InStr(.List(I), "|") + 1)
      Print #F, sLine
    Next I
  End With
  Close #F
 
  MsgBox "Datei wurde sortiert!"</code>

<code>  Dim F As Integer
  Dim N As Integer
  Dim nCount As Long
  Dim sLine As String
  Dim sLines(3) As String
  Dim sFile As String
  Dim sFileSort As String
  Dim HRBNr As String
 
  <font color=green>' zu sortierende Datei</font>
  sFile = App.Path & "0013.dat"
  sFileSort = App.Path & "0013_sort.dat"
 
  <font color=green>' Datei öffnen und zunächst alle Datensätze einlesen</font>
  F = FreeFile
  Open sFile For Input As #F
  While Not EOF(F)
    <font color=green>' Prüfen, ob eingelesene Zeile, die erste Zeile
    ' eines Datensatzes ist (Firma:       )</font>
    Line Input #F, sLine
 
    If Left$(sLine, 13) = "Firma:       " Then
      <font color=green>' Restlichen zwei Zeilen des Datensatzes einlesen</font>
      sLines(1) = sLine
      Line Input #F, sLines(2)
      Line Input #F, sLines(3)
 
      <font color=green>' HRBNR</font>
      HRBNr = Mid$(sLines(2), InStr(sLines(2), "HRB-Nr") + 11)
 
      <font color=green>' Datensatz der ListBox hinzufügen</font>
      List1.AddItem Format$(Val(HRBNr), "00000000") + "|" + sLines(1) + vbCrLf _
        + sLines(2) + vbCrLf + sLines(3)
    End If
  Wend
  Close #F
 
  <font color=green>' sortierte ListBox speichern</font>
  F = FreeFile: Open sFile For Input As #F
  N = FreeFile: Open sFileSort For Output As #N
 
  While Not EOF(F)
    <font color=green>' Prüfen, ob eingelesene Zeile, die erste Zeile
    ' eines Datensatzes ist (Firma:       )</font>
    Line Input #F, sLine
 
    If Left$(sLine, 13) = "Firma:       " Then
      Line Input #F, sLine
      Line Input #F, sLine
 
      <font color=green>' nächsten Eintrag der sortierten Liste speichern</font>
      With List1
        sLine = Mid$(.List(0), InStr(.List(0), "|") + 1)
        Print #N, sLine
        .RemoveItem 0
      End With
    Else
      Print #N, sLine
    End If
  Wend
  Close #N: Close #F
 
  MsgBox "Datei wurde sortiert!"</code>