Visual Basic - matriz dinamica a un procedimiento

Como paso una matriz dinamica a un procedimiento.
La matriz definida es:

public type dat
dato as integer
titulo as string
end type

En el procedimiento lo defino:
dim matriz() as dat

asigno los datos y redimensiono
redim preserve matriz(i)

llamo al procemiento:
call calcular(matriz, dato1, dato2, dato3)

y el procedimiento esta definido:
public sub calcular(matriz as ?, dat1 as integer, dat2 as string, dat3 as integer)

Bueno, a lo que se puede entender, requieres del tipo de dato del parámetro que está con ?, ese tipo de dato cuando NO ES OBJETO se llama Variant:

No objeto > Variant
Objeto > Object

Es lo más genérico que puede tener una declaración

Al definirlo como variant me da el error:
Only user-defined types in public object module can be coerced to or from a variant or passed to late-bound functions.

Lo probé de ésta forma y me funciona:

Public Sub calcular(matriz() As dat, dat1 As Integer, dat2 As String, dat3 As Integer)

El ejemplo que apliqué fue:

Public Type dat
dato As Integer
titulo As String
End Type

Public Sub Main()
Dim matriz() As dat

ReDim Preserve matriz(1 To 2)

matriz(1).dato = 1
matriz(1).titulo = "titulo1"

matriz(2).dato = 2
matriz(2).titulo = "titulo2"

Call calcular(matriz, 1, "dato2", 3)

End Sub

Public Sub calcular(matriz() As dat, dat1 As Integer, dat2 As String, dat3 As Integer)
Dim i As Integer

For i = LBound(matriz) To UBound(matriz)
Debug.Print matriz(i).dato & vbTab & matriz(i).titulo
Next i
End Sub