VBA我不能使用字典的Exists方法

Function KeyExists(col As Collection, key As Variant) As Boolean
    On Error Resume Next
    col.Item key
    KeyExists = (Err.Number = 0)
    Err.Clear
End Function

Sub TestKeyExists()
    Dim dict As New Collection
    dict.Add "Value 1", "Key 1"
    dict.Add "Value 2", "Key 2"
    
    If KeyExists(dict, "Key 1") Then
        MsgBox "Key 1 exists in the collection."
    Else
        MsgBox "Key 1 does not exist in the collection."
    End If
End Sub

Class Dictionary
    Private dict As Object
    
    Private Sub Class_Initialize()
        Set dict = CreateObject("Scripting.Dictionary")
    End Sub
    
    Public Sub Add(key As Variant, value As Variant)
        dict.Add key, value
    End Sub
    
    Public Function Exists(key As Variant) As Boolean
        Exists = dict.Exists(key)
    End Function
End Class

Sub TestDictionary()
    Dim dict As New Dictionary
    dict.Add "Key 1", "Value 1"
    dict.Add "Key 2", "Value 2"
    
    If dict.Exists("Key 1") Then
        MsgBox "Key 1 exists in the dictionary."
    Else
        MsgBox "Key 1 does not exist in the dictionary."
    End If
End Sub