Как передать массив

[coder]

Как передать массив в модуль как параметр функции и чтобы VB5 работало.

[Amed]

'Ключевое слово "ParamArray" позволяет процедуре принимать произвольное число параметров:

Private x As Variant
Private y As Integer
Private IntSum As Integer

Private Sub Sum(ParamArray intNums())
For Each x In intNums
y = y + x
Next x
IntSum = y
End Sub

Private Sub Command1_Click()
Sum 1, 3, 5, 7, 8
MsgBox IntSum
End Sub

'В окне MsgBox должно получиться число 24

[coder]

'Ключевое слово "ParamArray" позволяет процедуре принимать произвольное число параметров:

Private x As Variant
Private y As Integer
Private IntSum As Integer

Private Sub Sum(ParamArray intNums())
For Each x In intNums
y = y + x
Next x
IntSum = y
End Sub

Private Sub Command1_Click()
Sum 1, 3, 5, 7, 8
MsgBox IntSum
End Sub

'В окне MsgBox должно получиться число 24

Мне нужно передать массив заранее не известный и именно как массив тоесь типа
sum ar(), а не как вы предлагаете sum 1,2,3,4, так как у меня есть именно массив а не много параметров

[sanches]

Private Sub Test(arr As Variant)
Dim i As Long
For i = LBound(arr) To UBound(arr)
....
Next i
End sub

...


Test MyArray