Как присвоить значение словарного ключа непосредственно другой переменной?

У меня есть Scripting.Dictionary, из которого я хочу присвоить значение первого ключа (т. е. 0-го элемента в массиве .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