how i emanate various array bstr euphoria controlling eucom?

so distant i've figured out pass unicode strings, bstrs, euphoria dll controlling typelib. i can't figure out, so far, emanate pass behind an array bstrs.

the formula i have so distant (along includes eucom itself tools win32lib):

global duty realarr()
  method seq
  atom psa
  atom var
  seq = { "cat","cow","wolverine" }
  psa = create_safearray( seq, vt_bstr )
  make_variant( var, vt_array + vt_bstr, psa )
  relapse var
end function

part typelib is:

  [
     helpstring("get an array strings"), 
     entry("realarr")
  ] 
  vacant __stdcall realarr( [out,retval] variant* res );

and exam code, vb6 is:

...
dim v() string
v = realarr()
...

so distant i've managed an blunder '0' dll. any ideas? anyone?