从嵌套字典返回关键字excel vba

Function GetValueFromNestedDict(nestedDict As Object, key As Variant) As Variant
    Dim outerKey As Variant
    Dim innerKey As Variant
    
    For Each outerKey In nestedDict.Keys
        If TypeName(nestedDict(outerKey)) = "Dictionary" Then
            For Each innerKey In nestedDict(outerKey).Keys
                If innerKey = key Then
                    GetValueFromNestedDict = nestedDict(outerKey)(innerKey)
                    Exit Function
                End If
            Next innerKey
        End If
    Next outerKey
    
    GetValueFromNestedDict = "Key not found"
End Function

Sub Test()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 创建嵌套字典
    Dim innerDict As Object
    Set innerDict = CreateObject("Scripting.Dictionary")
    innerDict.Add "key1", "value1"
    innerDict.Add "key2", "value2"
    
    dict.Add "outerKey", innerDict
    
    ' 调用函数获取值
    Dim value As Variant
    value = GetValueFromNestedDict(dict, "key2")
    
    MsgBox value ' 输出"value2"
End Sub