[vba]
dim RefWeights() as variant ' before all subs
Sub MyProgram1()
'code goes in here
end sub

Sub Myprogram2()
dim RefReturns(), dim LossParam()
LossParam(x) = RefReturns(x)*RefWeights(x)
'code goes in here
end sub
[/vba]