' Listing 2. Workaround to Index a Dictionary's Items

Dim arr, i arr = dict.Items()
For i = 0 to dict.Count - 1
	MsgBox arr(i)
Next