Dim nCount As Long
Dim sTemp() As String
Dim sData() As String
 
nCount = UBound(arTest)
ReDim sTemp(nCount)
For i = 0 To nCount
  With arTest(i)
    sTemp(i) = Format$(.intZu_Sortieren, "00000") & "|" & _
      IIf(boolTest = True, "1", "0") & "|" & strTest
  End With
Next i
 
QuickSort sTemp, 1, nCount
 
For i = 1 To nCount
  sData = Split(sTemp(i))
  With arTest(i)
    .intZu_Sortieren = Val(sData(0))
    .boolTest = Val(sData(1))
    .strTest = sData(2)
  End With
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de