連想配列に複数のvalueをいれることはできますか？
Dim hash
Set hash = CreateObject("Scripting.Dictionary")
hash.Add "a", (1, 1)
みたいな感じで