Object kopieren

Public Function test() as object
dim hilfswert() as object
redim hilfswert(1 to 10)
for i = 1 to 10
'hilfswert(i) bekommt eine ArrayList zugeordnet
next i
'jetzt soll hilfswert dem Rückgabewert test zugewiesen werden
'1. Versuch: funktioniert nicht
set test = hilfswert
'2.Versuch: hierbei wird die Function test wieder aufgerufen
for i = 1 to 10
set test(i) = hilfswert(i).clone()
next i
End Function