VBA /如何检查字典项是否存在于另一个字典中？

Function CheckDictionaryItemExists(dict1 As Object, dict2 As Object, key As Variant) As Boolean
    CheckDictionaryItemExists = dict1.Exists(key) And dict2.Exists(key)
End Function

Sub Test()
    Dim dict1 As Object
    Dim dict2 As Object
    
    Set dict1 = CreateObject("Scripting.Dictionary")
    Set dict2 = CreateObject("Scripting.Dictionary")
    
    ' 向字典1中添加项
    dict1.Add "key1", "value1"
    dict1.Add "key2", "value2"
    
    ' 向字典2中添加项
    dict2.Add "key2", "value2"
    dict2.Add "key3", "value3"
    
    ' 检查键是否同时存在于两个字典中
    If CheckDictionaryItemExists(dict1, dict2, "key2") Then
        MsgBox "键存在于两个字典中"
    Else
        MsgBox "键不存在于两个字典中"
    End If
End Sub