vba - Matrix of AppointmentItem -

im trying have script return list of appointmentitems. im doing this:

function testing() appointmentitem  dim returnlist(10) appointmentitem dim item appointmentitem  = 0 9     item = // create random appointmentitem     set returnlist(i) = item next  testing = returnlist  end function 

the returnlist filled correctly, on line testing = returnlist gives me run time error '91' : object variable or block not set.

what missing here?

you should return array of appointmentitem's, not single appointmentitem. try one:

function testing() appointmentitem()    dim returnlist(10) appointmentitem    dim item appointmentitem     = 0 9       item = '// create random appointmentitem       set returnlist(i) = item    next     testing = returnlist end function