Sorting

Change '>' to '<' if you want a descending sort

Public Sub SortCollectionDefault() 
Dim myCol As New Collection 
Dim i As Long 
Dim j As Long 
Dim temp As Variant 
Dim item As Variant 
    
    myCol.Add "Orange" 
    myCol.Add "Apple" 
    myCol.Add "Pear" 
    myCol.Add "Banana" 
    
    For i = 1 To myCol.Count - 1 
        For j = i + 1 To myCol.Count 
            If myCol(i) > myCol(j) Then 
                
                temp = myCol(j) 
                myCol.Remove j 
                myCol.Add temp, Before:=i 
            End If 
        Next j 
    Next i 
    
    For Each item In myCol 
        Debug.Print item 
    Next item 
End Sub