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