dim dic 
Set dic=CreateObject("scripting.dictionary")