局部变量作返回值

Question

Private Sub Command1_Click()Dim coll As Collection
coll = retCollection
Print coll.Item(2)
    
End SubPrivate Function retCollection() As CollectionDim myCollection As New Collection
myCollection.Add "HelloWorld"
myCollection.Add "H2"
myCollection.Add "h3"
retCollection = myCollectionEnd Function
结果出错如何将局部创立的Collection返回给调用者呢?

Answer 1

Private Function retCollection(Collection as  Collection )
Collection .Add "HelloWorld"
Collection .Add "H2"
Collection .Add "h3"
End Function

Answer 2

少个set！！！Private Function retCollection() As CollectionDim myCollection As New Collection
myCollection.Add "HelloWorld"
myCollection.Add "H2"
myCollection.Add "h3"
set retCollection = myCollectionEnd Function