it isn’t possible to get the keys of a collections. You can only check if a key exsists (http://www.vb-tec.de/collctns.htm text is german, but sourcecode is in english). So, if you know all keys of the collection you are lucky.
What about this sub:

Sub sortCollection(Data As Collection, Optional Keys = False)

Dim vItm As Variant
Dim i As Long, j As Long
Dim vTemp As Variant

If Keys = True Then
For i = 1 To Data.Count – 1
For j = i + 1 To Data.Count
If Data(i) > Data(j) Then
‘store the lesser item
vTemp = Data(j)
‘remove the lesser item
Data.Remove j
‘re-add the lesser item before the
‘greater Item
Data.Add vTemp, vTemp, i
End If
Next j
Next i
Else
For i = 1 To Data.Count – 1
For j = i + 1 To Data.Count
If Data(i) > Data(j) Then
‘store the lesser item
vTemp = Data(j)
‘remove the lesser item
Data.Remove j
‘re-add the lesser item before the
‘greater Item
Data.Add vTemp, , i
End If
Next j
Next i
End If
End Sub

It can’t maintain your userdef keys, but can sort both collections: collections with keys same as values and collections without keys. If you pass a collection with userdef. keys you will get a collection whitch has keys and values the same…
Thank you for this small code, i find it very useful.

greetings,
Chris