как передать в функцию элемент массива пользовательского типа

Есть пользовательский тип:

Type Obj
	First As Integer
	Second As String
End Type

Есть массив объектов пользовательского типа:

Dim Ex(1) As Obj

	Ex(0).First = 345
	Ex(0).Second = "строка1"
	Ex(1).First = 456
	Ex(1).Second = "строка2"

Есть 2 процедуры:

Sub Proc1 (Ex As Obj)
	'что-то делаем с объектом
End Sub

Sub Proc2 (Ex() As Obj)
	Dim i As Integer
	For i = LBound(Ex()) To UBound(Ex())
		'пробегаем по каждому объекту из массива
		'и в зависимости от логики нужно вызвать Proc1
		'для i-го элемента
		Call Proc1 (Ex(i))
	Next i
End Sub

Предыдущий вызов Proc1 из Proc2 работать не будет. Как вызвать непонятно.

Sub Proc2 (Ex() As Obj)
	Dim i As Integer
	For i = LBound(Ex()) To UBound(Ex())
		'пробегаем по каждому объекту из массива
		'и в зависимости от логики нужно вызвать Proc1
		'для i-го элемента
		Proc1 (Ex(i))
	Next i
End Sub

Предыдущий вызов Proc1 из Proc2 работать не будет. Как вызвать непонятно.

call Proc1 (Ex(i))

да, описался, но
Call Proc1 (Ex(i))
не работает.

да, описался, но
Call Proc1 (Ex(i))
не работает.

Rational Robot 7.0.0.0
работает...

Type Obj
	First As Integer
	Second As String
End Type

Sub Proc1 (Ex As Obj)
	SQALogMessage sqaPass," Second "+Ex.Second ,""
End Sub

Sub Proc2 (Ex() As Obj)
	Dim i As Integer
	For i = LBound(Ex()) To UBound(Ex())
		call Proc1 (Ex(i))
	Next i
End Sub

Sub Main
	Dim Ex(1) As Obj

	Ex(0).First = 345
	Ex(0).Second = "aaa"
	Ex(1).First = 456
	Ex(1).Second = "bbb"

	call Proc2 (Ex)

end sub

а ведь и правда работает!
часа 3 назад и всю эту неделю не работало. видно где-то я ошибся.
спасибо, что заставили еще раз проверить.