Dim リスト as New Collection
リスト.Item(i)
リスト.Add(値)
リスト.Add(item := 値, key := "キー")
For Each 値 In リスト
1~
リスト.Count