[VB] Renvoyer une collection

Salut à tous,

J'aimerais faire une fonction VB qui me renvoie une collection mais ca ne passe pas.

Voici le code :

Public Function RecupListeInfos(TagObjet As String) As Long
dim Macollection as Collection
set Macollection = new Collection

.........

RecupListeInfos = Macollection

Macollection = nothing
end function

Merci pour votre aide