<code>Public Function myDLLArray() As Variant
  Dim myArray(10)
 
  myArray(0) = "Element 0"
  ...
  myArray(10) = "Element 10"
 
  myDLLArray = myArray
End Function</code>

<code>Dim myClass As New Class1
Dim myArray() As Variant
 
myArray = DLLArray.myDLLArray()
MsgBox "Element(0) = " & myArray(0) & vbCrLf & _
  "Element(10) = " & myArray(10)</code>