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