Sortering af text

Du laver en listboks, hvor sortéret er sat til True...

Derefter kører du denne kode:
Private Sub btnSort_Click()
  Dim strArray(), lngLoop As Long
  strArray = Split(Text1.Text, vbCrLf)
  List1.Clear
  For lngLoop = lBound(strArray) To uBound(strArray)
    List1.AddItem strArray(lngLoop)
  Next
  Open "C:\Test.txt" For Output As #1
  For lngLoop = lBound(strArray) To uBound(strArray)
    Print #1, List1.List(lngLoop - 1)
  Next
  Close #1
End Sub