小弟我有一个类,里面有一个属性是collection,小弟我怎么给它赋值

我有一个类,里面有一个属性是collection,我如何给它赋值?
我有一个类,里面有一个属性是collection,我如何给它赋值?    

Dim     poso     As     Postinfo    
Set     poso     =     New     Postinfo    
Set   InputOne   =   New   InputElement

InputOne.InputID   =   11
InputOne.InputName   =   "rk "
InputOne.InputValue   =   "ty "
poso.allInputs.Add   InputOne

这样怎么会报错    
我建立一个临时colleciton然后     Set     poso.allInputs     =     inputCollection    
好像也不行    
 
谢谢

[解决办法]
把类的代码贴上来。
[解决办法]
set poso.allInputs = new Collection

poso.allInputs.Add InputOne
[解决办法]
解决了就结贴吧
[解决办法]
嗯，蹭分
^_^