Work with dictionary objects

Set dictObj=createobject("Scripting.Dictionary")
dictObj.Add "name","Uday"
dictObj.Add "tech","qa"
dictObj.Add "loc","hyd"
dictObj.Key("loc")="location"
msgbox dictObj.Item("location")
msgbox dictObj.Count