How do you make an Array to send thru to a function

Dim RA2(88),DEC2(88),RA(88,100),DEC(88,100)
...Input RA(k,j) and DEC(k,j)...
For k = 1 To 88
     num(k)=k+5
     RA2(k) = "Array("
     DEC2(k) = "Array("
     For j = 1 To num(k)
            RA2(k) = RA2(k) & "," & RA(k, j)
            DEC2(k) = DEC2(k) & "," & DEC(k, j)
      Next j
      RA2(k) = RA2(k) & ")"
      DEC2(k) = DEC2(k) & ")"
      result = function1(RA2(k),DEC2(k))
Next k
...
Function function1(Byval RA3(), Byval DEC3())
     For Each RA1 in RA3
...