OpenEuphoria

By the way, thanks to whoever it was who voted up my Euphoria question on StackOverflow http://stackoverflow.com/questions/199612/how-do-i-create-a-variant-array-of-bstr-in-euphoria-using-eucom

You should use the create_safearray() function. It's documented (hidden?) under Utilities. Basically, put your BSTR pointers into a sequence and pass it to create_safearray():

sequence s, bstrs 
s = {"A", "B"} 
bstrs = {} 
for i = 1 to length(s) do 
    bstrs &= alloc_bstr( s[i] ) 
end for 
 
atom array 
array = create_safearray( bstrs, VT_BSTR ) 
 
... 
 
destroy_safearray( array )