You have me a bit confused on what you are doing but...
type Contact
first_name as string
last_name as string
text as string
end type
dim contact_arr(20) as contact
contact_arr(1).text = "text 1"
contact_arr(1).first_name = "First Name 1"
contact_arr(1).last_name = "Last Name 1"
call dostuff(contact_ARR(),contact_arr(1).text)
sub dostuff(contact_arr() as contact, l_field as string)
...
end sub
(I forgot the exact type syntax, but the rest should be correct)
type Contact
first_name as string
last_name as string
text as string
end type
dim contact_arr(20) as contact
contact_arr(1).text = "text 1"
contact_arr(1).first_name = "First Name 1"
contact_arr(1).last_name = "Last Name 1"
call dostuff(contact_ARR(),contact_arr(1).text)
sub dostuff(contact_arr() as contact, l_field as string)
...
end sub
(I forgot the exact type syntax, but the rest should be correct)