2つのDictionaryを比較し、Itemが合致したカウントを返すファンクション

Function MATCH_dictionaryCnt(Dictionary1 As Object, Dictionary2 As Object) As Long
'２つのDictionaryを比較し、Itemが合致したカウントを返す
'Dictionary1を基準として、Dictionary2を確認。
'Keyがない場合、カウントされないので双方向で確認した方がよい。

Dim myKeys
Dim i As Long, Cnt As Long

myKeys = Dictionary1.keys
    For i = 1 To Dictionary1.Count - 1
        If Dictionary1(myKeys(i)) = Dictionary2(myKeys(i)) Then Cnt = Cnt + 1
    Next i

MATCH_dictionaryCnt = Cnt

End Function