Public Function CollectionToArray(Coll As Collection) As Variant()
  Dim Vettore() As Variant
  Dim i As Long
  Dim Elemento As Variant
  
  ReDim Vettore(Coll.Count - 1) As Variant
  For Each Elemento In Coll
    Vettore(i) = Elemento
    i = i + 1
  Next it
  CollectionToArray = Vettore
End Function