IsIntersectionResultCurve

Function IsIntersectionResultCurve(Obj1 As Variant, Obj2 As Variant, ConstSet As  HybridBody) As Boolean 
On Error GoTo Blast
If CheckIntersection(Obj1, Obj2, MyPart, MyHSFactory) Then
    Dim SamInt As HybridShapeIntersection
    Set SamInt = MyHSFactory.AddNewIntersection(Obj1, Obj2)
    ConstSet.AppendHybridShape SamInt
    
    If CrvCheck(SamInt) Then
        MyHSFactory.DeleteObjectForDatum SamInt
        IsIntersectionResultCurve = True
        Exit Function
    End If
    MyHSFactory.DeleteObjectForDatum SamInt
End If
Blast:
IsIntersectionResultCurve = False
End Function