Initial data commit

Task/Associative-array-Merging/VBA/associative-array-merging-2.vba

@@ -0,0 +1,23 @@
+Sub Main_With_Dictionary()
+Dim Base As Object, Update As Object, Merged As Object, K As Variant
+    'INIT VARIABLE
+    Set Base = CreateObject("Scripting.Dictionary")
+    Set Update = CreateObject("Scripting.Dictionary")
+    Set Merged = Base
+    'FILL Base & Update
+    Base.Add "name", "Rocket Skates"
+    Base.Add "price", 12.75
+    Base.Add "color", "yellow"
+    Update.Add "price", 15.25
+    Update.Add "color", "red"
+    Update.Add "year", 1974
+    'Fill Merge
+    For Each K In Update.Keys
+        Merged(K) = Update(K)
+    Next
+    'Print Out
+    Debug.Print "Key", "Value"
+    For Each K In Merged.Keys
+        Debug.Print K, Merged(K)
+    Next K
+End Sub