【VBA】Dictionaryの存在確認｜DicExists

Option Private Module
Option Explicit
Public Function DicExists( _
                                    ByVal dic As Object, _
                                    ByVal key As String) As Boolean
    DicExists = False
    If dic.exists(key) Then DicExists = True
End Function

Private Sub Test()

    Dim i As Long
    Dim dic As Object: Set dic = SetDIC

    For i = 1 To 100
        If Not DicExists(dic, xx) Then  'キー(xx)がdicに存在しなければ
            Set dic = AddDicKeyValue(dic, xx, yy)  'キー(xx)と要素(yy)を追加する

            'なにかの処理
        End If
    Next i
End Sub