Returnering VARIANT (med tabel indhold) fra VB til ASP.

Hvorledes retunerer jeg en VARIANT fra et VB program (DLL) til en ASP-side. Indholdet af VARIANT er en array! Se vedlagte.
*********************************************
ASP:
<%@ Language=VBScript %>
<%option explicit
Response.Buffer = true
dim objT, arrT, indx
on error resume next

set objT = server.createobject("TestTabel.Tabel")
if err.number > 0 then
    Response.Write("FEJL 1 = " & err.description & "<br>")
end if

arrT = objT.Hent()
if err.number > 0 then
    Response.Write("FEJL 2 = " & err.description & "<br>")
end if

Response.Write("TYPE VB = " & typename(objT.Hent()) & "<br>")
Response.Write("TYPE ASP = " & typename(arrT) & "<br>")
if err.number > 0 then
    Response.Write("FEJL 3 = " & err.description & "<br>")
end if

Response.Write ("arrT: " & arrT & "<br>")
if err.number > 0 then
    Response.Write("FEJL 4 = " & err.description & "<br>")
end if 

for indx = 0 to ubound(arrT) 
    Response.Write(arrT(indx))
    if err.number > 0 then
        Response.Write("FEJL 5 = " & err.description & "<br>")
    end if
next

set objT = nothing%>
***********************************************
VB (DLL-generet og reg. på server):
Option Explicit

Public Function Hent() As Variant
  Dim arrTest() As String
 
  ReDim Preserve arrTest(0)
  arrTest(0) = "Knud"
  ReDim Preserve arrTest(1)
  arrTest(1) = "Erik"
  ReDim Preserve arrTest(2)
  arrTest(2) = "Svend"
 
  Hent = arrTest
 
End Function

*************************************************

svar når asp afvikles:

TYPE VB = String() 
TYPE ASP = String()
FEJL 4 = Typerne passer ikke sammen
FEJL 5 = Typerne passer ikke sammen
FEJL 5 = Typerne passer ikke sammen
FEJL 5 = Typerne passer ikke sammen

Bemærk at typerne er Sting() ikke Sting!!