怎么使用COLLECTION对象啊？

Question

set object.item(2) = newitem
set msg = object.item(2) 

Answer 1

msg 要声明为OBJECT吗？
如果是我又如何得到这个OBJECT的值
如果不是，我刚才做的时候出错提示：需要对象！

Answer 2

OBJECT 不是 Collection吗。
msg 当然要声明为你想得到的值的类型。

Answer 3

不是这个意思。
我说MSG这个变量要声明为OBJECT类型吗？
我当时声明为STRING，可执行到这里时，提示需要对象！

Answer 4

Dim cc As New Collection
private sub Mysub（）
   Dim i  As Integer
   For i = 0 To 10
       cc.Add i, CStr(i)
   Next i
   For i = 1 To 11
       Debug.Print cc.Item(i)
   Next i
end sub

Answer 5

dim cc as new  collection
private sub Mysub()
    Dim i  As Integer
    For i = 0 To 10
        cc.Add i, CStr(i)
    Next i
    For i = 1 To 11
        Debug.Print cc.Item(i)
    Next i
end sub

Answer 6

你应该建立一个类模块，把Msg和其它你想要的数据放进去。之后
dim newitem as new msgitem
msgitem.msg = "abcdefg"
set object.item(2) = newitemdim newitem as msgitem
set newitem = object.item(2)
debug.print newitem.msg