Public Function SortCollection(objData As Collection, strField As String, _
  Optional strRichtung As String = "asc") As Boolean
    Dim objTemp As Object
    Dim i As Long
    Dim j As Long
    Dim bolResult As Boolean
 
    If objData.Count > 1 Then
        For i = 1 To objData.Count - 1
            For j = i + 1 To objData.Count
                bolResult = CompareKeys(CallByName(objData(i), strField, _
                  VbGet), CallByName(objData(j), strField, VbGet))
                If Not strRichtung = "asc" Then bolResult = Not bolResult
                If bolResult Then
                    Set objTemp = objData(j)
                    With objData
                        .Remove j
                        .Add objTemp, , i
                    End With
                End If
            Next j
        Next i
    End If
 
End Function
 
 
Private Function CompareKeys(var1 As Variant, var2 As Variant) As Boolean
    ' Einfacher Vergleich
    If var1 > var2 Then CompareKeys = True
End Function