How to create an array of dictionary in UFT?

Dim ArrayofDictionary(2)

First element of array

Set ArrayofDictionary(0)= createobject("scripting.dictionary")

ArrayofDictionary(0).Add "key1", "temp1"

ArrayofDictionary(0).Add "key2", "temp2"

Added keys in first dictionary

Second element of array as dictionary

Set ArrayofDictionary(1)= createobject("scripting.dictionary")

ArrayofDictionary(1).Add "key1", "temp1"

ArrayofDictionary(1).Add "key2", "temp2"

Added keys in second dictionary…..and so on

x