如何将字典键的值直接赋值给另一个变量?

我有一个 Scripting.Dictionary 我希望从中分配第一个键的值(即 .Keys 数组)转换为另一个变量。

如果不首先指定值,我就无法做到这一点 Keys 数组到另一个变量,然后从该变量访问元素。

我如何一步到位?

Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

dict.Add Key:="a", Item:="A"
dict.Add Key:="b", Item:="B"
dict.Add Key:="c", Item:="C"
dict.Add Key:="d", Item:="D"

Dim tmp1
Dim tmp2 As String
tmp1 = dict.Keys
tmp2 = tmp1(0) 'This works


Dim tmp As String
tmp = dict.Keys(0) 'This does not work