Я могу передать в процедуру собранную массивную переменную?

ReDim mCollFn(mCnt)

mCollFn(0) = ""
For i = 1 To mCnt
Set Fn = ActiveDocument.Footnotes(i)
    If err > 0 Then Exit For
fnIndex = Fn.Index
fntext = Fn.Range.Text
fntext = Replace(Trim(fntext), vbTab, "")
    While Right(fntext, 1) = " " Or Right(fntext, 1) = Chr(13)
    fntext = Left(fntext, Len(fntext) - 1)
    Wend

mPos = Fn.Reference.Start
ActiveDocument.Range(Start:=mPos, End:=mPos).Text = "!!" & LTrim(Str(fnIndex)) & "!!"
' tut menyaju v samom texte etu snosku na ee metku, po kotorym potom budu ih rasstavlyat is sobrannogo massiva
If fntext = "" Then Fn.Delete: i = i - 1: GoTo skk

mCollFn(i) = fntext

'Debug.Print mCollFn((I), 0)
'Debug.Print mCollFn((I), 1)
'If I = 122 Then ActiveDocument.Footnotes(I).Range.Select: Stop ': MsgBox mCollFn((i), 0) & vbCr & mCollFn((i), 1)
'If I = 291 Then Stop
skk:
Next