I've been trying to call a subroutine where the parameters include a user
defined type without success.
Pseudo-code of what I'm trying to do is as follows:

type typArr
key as long: dat as string
end type
dim arr() as typArr
Sub main()
dim point as long
point=add (this, arr(), arr().key)
arr(point).dat= ..... (to finish adding other data items)
end sub
function add( This as variant, ToThis() as ???, Key as ???) as long
( find where to insert and return location, includes shifting data in
ToThis() )
redim preserve tothis(1 to newcount) (if need more arr())
end function

How do I do this? (I eventually want to make the add() function as part of a
class)