Public Function LBSortItem(ByRef hLBox As ListBox, _
                           ByRef hOrder As Boolean) As Boolean
 
    Dim rApi        As Long
    Dim idx         As Integer
    Dim maxElements As Integer
    Dim tmpLB()     As String
 
    Debug.Print Timer & " " & Time$
    If hOrder = True Then
 
        'LB-Sortierung absteigend
        If hLBox.Sorted = True Then
 
            ' kann nicht sortiert werden !
            LBSortItem = False
            Exit Function
        End If
 
    Else
 
        ' LB-Sortierung aufsteigend (Standard!)
        If hLBox.Sorted = True Then
 
            'keine weitere Sortierung notwendig!
            LBSortItem = True
            Exit Function
        End If
    End If
 
    ' Einträge sortieren
    ' zuerst alle Einträge in Array u. sortieren
    ReDim tmpLB(hLBox.ListCount - 1)
    maxElements = hLBox.ListCount
    For idx = 0 To hLBox.ListCount - 1
        tmpLB(idx) = hLBox.List(idx)
    Next
 
    ' Array sortieren
    Call SortArray2(tmpLB(), 0, maxElements - 1)
 
    ' LB löschen/leeren u. wieder füllen
    hLBox.Clear
    ''
    lstName.Clear
    ''
    For idx = 0 To maxElements - 1
        If hOrder = True Then
           hLBox.AddItem tmpLB(idx), 0
        Else
           hLBox.AddItem tmpLB(idx)
        End If
    Next
    Debug.Print Timer; " "; Time$
End Function
 
' Array sortieren - Variante 2   >QuickSort<
'  < 1 sek. bei 1.000 / ca. 1 sek bei 10.000 Strings
Public Sub SortArray2(ByRef tmpArray() As String, ByVal idxLo As _
Long, ByVal idxHi As Long)
  Dim tmpString As String
  Dim tmpSwap   As String
  Dim tmpLow    As Long
  Dim tmpHi     As Long
 
  tmpLow = idxLo
  tmpHi = idxHi
  tmpString = tmpArray((idxLo + idxHi) / 2)
 
  While (tmpLow <= tmpHi)
    While (tmpArray(tmpLow) < tmpString) And (tmpLow < idxHi)
      tmpLow = tmpLow + 1
    Wend
 
    While (tmpString < tmpArray(tmpHi)) And (tmpHi > idxLo)
      tmpHi = tmpHi - 1
    Wend
 
    If (tmpLow <= tmpHi) Then
      tmpSwap = tmpArray(tmpLow)
      tmpArray(tmpLow) = tmpArray(tmpHi)
      tmpArray(tmpHi) = tmpSwap
      tmpLow = tmpLow + 1
      tmpHi = tmpHi - 1
    End If
  Wend
 
  If (idxLo < tmpHi) Then SortArray2 tmpArray(), idxLo, tmpHi
  If (tmpLow < idxHi) Then SortArray2 tmpArray(), tmpLow, idxHi
End Sub