Public Sub SortDemo()
 
  'Hilfsvariablen
  Dim i As Integer, k As Integer, r As Integer, num As String
 
  'Referenz auf die Listbox besorgen (optional)
  Dim lbo As ListBox
  Set lbo = List1
 
  'gleichabständige Schrift einstellen
  lbo.Font.Name = "Courier"
 
  'Testeinträge in die Liste schreiben / zufällige Punktwerte
  Randomize
  For i = 0 To 2000
     r = CInt(Rnd * 10000)
     num = CStr(r)
     While Len(num) < 5
       num = " " & num
     Wend
     lbo.AddItem (num & " " & vbTab & "bla bla bla")
  Next i
 
  'Aufbau des Hilfsarray für das Sortieren
  Dim dbl() As Double
  ReDim dbl(1 To lbo.ListCount)
  Dim pos As Integer
  For i = 0 To lbo.ListCount - 1
     pos = InStr(lbo.List(i), vbTab)
     dbl(i + 1) = Mid(lbo.List(i), 1, pos - 1) + i / 10000   
  Next i
 
  'simple Sortier-Doppelschleife 
  Dim inter As Double
  For i = 1 To UBound(dbl) - 1
     For k = i + 1 To UBound(dbl)
        If dbl(i) > dbl(k) Then
           inter = dbl(i)
           dbl(i) = dbl(k)
           dbl(k) = inter
        End If
     Next k
  Next i
 
  'Aufbau eines sortierten Stringarray 
  'aus der Listbox-Liste und dem Hilfsarray
  Dim str() As String
  ReDim str(0 To lbo.ListCount - 1)
  For i = 0 To UBound(str)
      r = CInt((dbl(i + 1) - CInt(dbl(i + 1))) * 10000)
      str(i) = lbo.List(r)
  Next i
 
  'Übertragen des String-Array in die geleerte Listbox
  lbo.Clear
  For i = 0 To UBound(str)
    lbo.AddItem (str(i))
  Next i
 
End Sub