Sub Sorting(list As Variant)
    Dim coll As Object
    Set coll = CreateObject("System.Collections.ArrayList")
    For Each Item In list
        coll.Add Item
    ' Sort
    coll.Sort
    Debug.Print vbCrLf & "Sorted Ascending"
    ' Add this sub from "Reading through the items" section
    PrintToImmediateWindow coll
    ' Reverse sort
    coll.Reverse
    Debug.Print vbCrLf & "Sorted Descending"
    PrintToImmediateWindow coll
End Sub
Sub PrintToImmediateWindow(coll As Object)
    Dim i As Long
    For i = 0 To coll.Count - 1
        Debug.Print coll(i)
    Next i
End Sub

Sub Test()
    Dim allFiles() As Variant
    MyDir = "C:\Users\xx\Downloads\CopyTest\Result\"
    Count = 0
    Filename = Dir(MyDir)
    Do While Filename <> ""
        Debug.Print Filename
        ReDim Preserve allFiles(Count)