DICTIONARY OBJECT

 
‘**********************************************************************************************************************************
'DICTIONARY OBJECT
 ‘**********************************************************************************************************************************

'Creating the Dictionary Object
Set objWeek = CreateObject("Scripting.Dictionary")

'Adding the Different Values to Dictionary Object
objWeek.Add "Day.1", "Monday"
objWeek.Add "Day.2", "Tuesday"
objWeek.Add "Day.3", "Wednesday"
objWeek.Add "Day.4", "Thursday"
objWeek.Add "Day.5", "Friday"
objWeek.Add "Day.6", "Saturday"
objWeek.Add "Day.7", "SUnday"

'Displaying the Values in the Dictionary Object
msgbox(objWeek("Day.1"))
msgbox(objWeek("Day.2"))
msgbox(objWeek("Day.3"))
msgbox(objWeek("Day.4"))
msgbox(objWeek("Day.5"))
msgbox(objWeek("Day.6"))
msgbox(objWeek("Day.7"))

‘**********************************************************************************************************************************