>>757
Dim ret As XXXXX

ret = function()
For i = 0 To n
F(i) = ret
Next i

ってこと？