Private Sub QuickSort(ByVal LB&, ByVal UB&)
  Dim P1&, P2&, Pivot As myClass, Tmp As myClass
 
  P1 = LB
  P2 = UB
  Pivot.Value = Feld((P1 + P2) / 2).Value
  Do
    Do While Feld(P1).Value < Pivot.Value: P1 = P1 + 1: Loop
    Do While Feld(P2).Value > Pivot.Value: P2 = P2 - 1: Loop
    If P1 <= P2 Then
      Tmp = Feld(P1)
      Feld(P1) = Feld(P2)
      Feld(P2) = Tmp
      P1 = P1 + 1
      P2 = P2 - 1
    End If
  Loop Until P1 > P2
  If LB < P2 Then Call QuickSort(LB, P2)
  If P1 < UB Then Call QuickSort(P1, UB)
End Sub

Gruss,

Zardoz