Trying use Clipper in Excel

[rnaldooo]

Using trying use DLL in VBA for years, so i trying to execute this example code

`
Sub Test1()
Dim subjs() As Variant 'Paths64
ReDim subjs(0 To 3)

Dim GetEllipsePoints As Rect64 'RectD 'Rect64 'Path64
GetEllipsePoints.bottom = 100
GetEllipsePoints.Left = 100
GetEllipsePoints.Right = 300
GetEllipsePoints.Top = 300
subjs(1) = GetEllipsePoints

GetEllipsePoints.bottom = 125
GetEllipsePoints.Left = 130
GetEllipsePoints.Right = 275
GetEllipsePoints.Top = 180
subjs(2) = GetEllipsePoints

GetEllipsePoints.bottom = 125
GetEllipsePoints.Left = 220
GetEllipsePoints.Right = 275
GetEllipsePoints.Top = 270
subjs(3) = GetEllipsePoints

Dim clips() As Variant
ReDim clips(1 To 1)

GetEllipsePoints.bottom = 140
GetEllipsePoints.Left = 70
GetEllipsePoints.Right = 220
GetEllipsePoints.Top = 320
clips(1) = GetEllipsePoints

Dim solution As Variant
Dim c As Clipper64

c.Path.Add subjs, PathType_Subject, True
c.Path.Add clips, PathType_Clip, True
c.Execute ClipType_Intersection, solution
End Sub`

or this code

`
Sub TestClipper()
Dim subject, clip, solution As Paths64
subject = "{100, 50, 10, 79, 65, 2, 65, 98, 10, 21}"
clip = "{ 98, 63, 4, 68, 77, 8, 52, 100, 19, 12 }"

Dim c As Clipper2Lib.Clipper
c.Add subject, PathType_Subject, True
c.Add clip, PathType_Clip, True
c.Execute ClipType_Intersection, solution
End Sub
`

someone know how to make it work?