VBA:如何返回集合对象的key？

Sub ReturnCollectionKeys()
    Dim myCollection As New Collection
    Dim key As Variant
    
    ' 向集合对象添加元素
    myCollection.Add "Value 1", "Key 1"
    myCollection.Add "Value 2", "Key 2"
    myCollection.Add "Value 3", "Key 3"
    
    ' 遍历集合对象的键并输出
    For Each key In myCollection.Keys
        Debug.Print key
    Next key
End Sub