Visual Basic: How to pass an array parameter to another routine

Published by Fudgy McFarlen on October 2, 2008October 2, 2008

This routine will pass a parameter to another routine

This routine receives the call with array as parameter

Sub TestPassArray()

Dim LongArray(1 To 5) As Long
Dim i As Integer

For i = 1 To 5
LongArray(i) = i
Next i

UserDisplay.Text = CStr(PassTest(LongArray()))

End Sub

Function PassTest(ByRef LongPass() As Long) As Long

Dim i As Integer
Dim Sum As Long

For i = 1 To 5
Sum = Sum + LongPass(i)
Next i

PassTest = Sum

End Function

The passing routine packs 1,2,3,4,5 into an array.
The called routine calculates the sum of all the values in the array and passes the result back to the calling routine.