Convert a VBA collection to an array

CollectionToArray.bas

Function CollectionToArray(C As Collection, Optional StartIdx As Long, Optional Size As Long) As Variant
' Convert a collection into an array

Dim A() As Variant
Dim Ci As Variant   ' Collection element
Dim i As Long
    
    ' Make sure Size is not less than collection size
    If Size < C.Count Then Size = C.Count
    
    ' Set starting index (zero by default)
    i = StartIdx
    
    ' Transfer collection to array
    ReDim A(i To i + Size - 1)
    For Each Ci In C
        A(i) = Ci
        i = i + 1
    Next

    CollectionToArray = A

End Function