【VBA】Dictionaryにkeyとvalueを追加する｜重複削除用

Public Function AddDicKeyValue( _
                                    ByVal dic As Object, _
                                    ByVal key As String, _
                                    ByVal value As String) As Object
    dic.Add key, value
    Set AddDicKeyValue = dic
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