I think this is causing the problem:
arr().key

You can pass the entire array across, but you can't have 'arr().key'

Try something like:

point = add("something", 123, arr())

with

Function add(this As Variant, aKey As Long, toThis() As typArr) As Long


HTH

Tim

"Ray Pixley" wrote in message
news:oG1Mf.772$FE2.347@trnddc01...
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)