Hvordan sende Dictionary collection fra funksjon?

[Slimshady]

Har lagret et dictionary objekt i en funksjon og ønsker å sende denne tilbake til oppkalleren. Men får feilmelding når returverdien blir satt. Hva kan dette skyldes?

Det er slik en sender Array fra funksjon..

 

 

Function Blabla(....) as Variant

 

Dim dictData As Variant 'Create a variable

 

 

Set dictData = New Dictionary

 

dictData.Add "a", "Athens" 'Add some keys and items

dictData.Add "b", "Belgrade"

dictData.Add "c", "Cairo"

 

 

Blabla = dictData ' <- HER FÅR EG FEIL!!

 

End Function

[aadnk]

Ettersom du i dette tilfellet håndterer objekter, må du endre returlinjen til følgende:

 

Set Blabla = dictData

[Slimshady]

Tusen takk!

 

Innlysende når du sier det:)