Item 取值解决方法

Item 取值
Dim item As NotesItem
Set wk = New notesuiworkspace
Set ss = New notessession
Set db = ss.currentdatabase
Set uidoc = wk.currentdocument     
Set doc = uidoc.document 

Set item = doc.GetFirstItem("test")

msgbox item.text


msgbox 显示item的值是1；2；3

如何把1 2 3分别取出来放到变量里？test域中的值可能是一个，也可能很多个。可能是1到100甚至更多。

 
[解决办法]
doc.test(0)..(1)(2)..
[解决办法]
for i=0 to ubound(doc.test)
msgbox doc.test(i)
next
就行了