' Add an item in the oDirectory collection ' expC1 Directory Private Function AddDirectory(ByVal tcDirectory As String) As Boolean Dim loObject(1) As Object loObject(1) = tcDirectory oDirectory.Add(loObject) Return True End FunctionThe way this is created, it is in ascending order. I was wondering what would be the fatest way to sort that collection in descending order knowing that each item is an object.