vba dictionary

vba-Dictionary.vba

'http://perfect-excel.ru/publ/excel/makrosy_i_programmy_vba/ischerpyvajushhee_opisanie_obekta_dictionary/7-1-0-101
'Set a reference to MS Scripting runtime ('Microsoft Scripting Runtime')
'Set dict = CreateObject("Scripting.Dictionary")
'or
'Dim dict As New Scripting.Dictionary 
'Example of use:

If Not dict.Exists(key) Then 
    dict.Add key, value
End If 

'Don't forget to set the dictionary to Nothing when you have finished using it.

Set dict = Nothing