Не работает Exists для объекта Dictionary - VB

Формулировка задачи:

dic  
 dic = CreateObject() 
  dic.Exists(iCell) 
     dic.Add iCell, Cells(i, ).Value
 

при этом iCell это дата типа 20.12.2004
использую excel 2007

Решение задачи: «Не работает Exists для объекта Dictionary»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> dic <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> dic = CreateObject(<font color="teal">"Scripting.Dictionary"</font>) 
<font color="blue">If</font> <font color="blue">Not</font> dic.Exists(CStr(iCell)) <font color="blue">Then</font>
     dic.Add CStr(iCell), Cells(i, <font color="darkblue"><b>2</b></font>).Value
<font color="blue">End</font> <font color="blue">If</font>

                        