<code>Dim arrLines() As String
Dim strFilename As String
Dim strInhalt As String
Dim F As Integer
Dim i As Long
 
strFilename = "D:TEST.txt"
 
<font color=green>' Datei komplett einlesen</font>
F = FreeFile
Open strFilename For Binary As #F
strInhalt = Space$(LOF(F))
Get #F, , strInhalt
Close #F
 
<font color=green>' Inhalt in Array zerlegen</font>
arrLines = Split(strInhalt, vbCrLf)
 
<font color=green> Array sortieren</font>
QuickSort arrLines()
 
<font color=green>' Array ggf. wieder zurückspeichern</font>
F = FreeFile
Open strFilename For Output As #F
For i = 1 To UBound(arrLines)
  Print #F, arrLines(i)
Next i
Close #F</code>