Excel VBA return the same reference from two different objects

[guruxyz]

I have the following:

CurveCol: A collection of object of type curve
PointsCol: A collection of XY data points associated with the object curve
Cls_Point: is an object containing the xy Data


Sub Get_Initials_At_PXc(p As Integer, Xc As Double)

Dim A As New Cls_Point, B As New Cls_Point

With CurveCol(p)

Set A = .Find_Point_At_Xc(Xc)

End With

With CurveCol(p + 1)

Set B = .Find_Point_At_Xc(Xc)

End With


End Sub

The problem is that when the " Set B" line is executed, the A object reference the B object.

Any Idea why?