How to Add Value in QTP - Dictionary Object

Code to associate an array as a value to the dictionary.
ex.
myArray = Array(”One”, “Elephant”, “January”, “Summer”)
objDict = CreateObject(”scripting.dictionary”)
objDict.Add “names”, myArray