Using user-defined variables in excel vba DLL

[macfile]

Sourcode :
'

Option Explicit

Type CustomerInfo
    company As String
    contact As String
    RegionCode As Integer
    Sales As Long
End Type

Type CountryInfo
    CountryName As String
    CountryCode As Integer
End Type

Type Out_CustomerInfo
    company As String
    contact As String
    RegionCode As Integer
    Sales As Long
    SalesStatus As String
End Type


Dim SalesStatus As String

 
 

Sub main(

Dim Customers() As CustomerInfo
'Input
Dim Out_Customers As Out_CustomerInfo
'Out

Dim Country As CountryInfo
Dim MYSHEET As Object
Dim i As Integer
Dim m As Integer
m = 3
ReDim Customers(m) As CustomerInfo


Set MYSHEET = ThisWorkbook.Worksheets("sheet1")

Customers(1).company = "Acme '
Customers(1).contact = "Tim Robertson"
Customers(1).RegionCode = 3
Customers(1).Sales = 150677

Customers(2).company = "ALPHA"
Customers(2).contact = "Dennie"
Customers(2).RegionCode = 1
Customers(2).Sales = 100

Country.CountryName = " Republic"
Country.CountryCode = 6

' DLL  Setting 
Dim obj As Project1.Class1
Set obj = New Project1.Class1


For i = 1 To 2


Out_Customers = obj.bb(Customers(), Country, i) 
                        ' --- ERR  POINT


MYSHEET.Cells(i, 1).Value = Out_Customers.company
MYSHEET.Cells(i, 2).Value = Out_Customers.contact
MYSHEET.Cells(i, 3).Value = Out_Customers.Sales
MYSHEET.Cells(i, 4).Value = Out_Customers.SalesStatus
Next i

''Only user defined types defined in public object modules can be coerced to or from a variant or
passed to late-bound functions


Please let me know a solution