FAQ.How to copy an dictionary?

Function CopyDictionary(d as Dictionary) As Dictionary
  dim r as new Dictionary
  for each key as Variant in d.keys
    r.Value(key) = d.Value(key)
  next
  Return r
End Function

If needed make several copies of this method with different data types, not just double.
For a deep copy of an dictionary of objects, you need to change code to also make a copy of those objects.