passing Array to Sub or Function

Question

I\'m getting missing array or user-defined type error trying to pass an array to a function.

The function:

Private Sub CreateTable(ByRef vtype() As Var