Function or Interface marked as restricted..in a COM wrapper

[Niklas]

Hi
this is my test class which I want to use in COM:

<System.Runtime.InteropServices.InterfaceType(Runt ime.InteropServices.ComInterfaceType.InterfaceIsDu al), _

System.Runtime.InteropServices.GuidAttribute("2cd2 18b0-0026-48bb-87f1-144677d45f01")> _
Public Interface ILoadAssembly
Function GetValue(ByVal Value As Object) As Object
Function GetValueArray(ByVal Value() As Object) As Object()
End Interface

<System.Runtime.InteropServices.GuidAttribute("0c9 bbc63-096e-4364-9894-0ba7c932048b"), _
System.Runtime.InteropServices.ProgId("ExecuteDotN etFunction.LoadAssembly"),
System.Runtime.InteropServices.ClassInterface(Runt ime.InteropServices.ClassInterfaceType.None)> _
Public Class LoadAssembly
Implements ILoadAssembly

Public Function GetValue(ByVal Value As Object) As Object Implements
ILoadAssembly.GetValue
Return Value
End Function

Public Function GetValueArray(ByVal Value() As Object) As Object()
Implements ILoadAssembly.GetValueArray
Return Value
End Function

End Class

this is how the VB6 code looks like:

Dim test As ExecuteDotNetFunction.LoadAssembly
Dim strA As String
Dim strB As String
Dim astrA() As String
Dim astrB() As String

Set test = New ExecuteDotNetFunction.LoadAssembly

strA = "Niklas"
strB = test.GetValue(strA)

ReDim astrA(1)
astrA(0) = "Niklas"
astrA(1) = "Fjellman"
astrB = test.GetValueArray(astrA)

GetValue works fine, but GetValueArray generates a compile error:
"Function or Interface marked as restricted, or the function uses an
Automatioin type not supported in Visual Basic". Does this mean that arrays
are not supported or have I done something wrong?

Regards
/Niklas