Excel VBA Dictionary型をソートして取り出す

DictionaryToSort.bas

Set Dic = CreateObject("Scripting.Dictionary")
With CreateObject("System.Collections.ArrayList")
	For Each s In Dic.Keys
		.Add s
	Next
	.Sort
	For Each s In .ToArray
		Debug.Print Dic.Item(s)
	Next
End With
Set Dic = Nothing

Dictionary型をソートして取り出すため、Collections.ArrayListにてソートキーを作って並べ直して取り出す。