FilletCheck

Function FilletCheck(FilletObj As Variant, Orientation1, Orientation2, TOri1, TOri2) As Boolean
On Error GoTo Blast3
Dim MyPart As Part
Set MyPart = CATIA.ActiveDocument.Part
FilletObj.TangentOrientation1 = TOri1
FilletObj.TangentOrientation2 = TOri2
FilletObj.Orientation1 = Orientation1
FilletObj.Orientation2 = Orientation2
MyPart.UpdateObject FilletObj
FilletCheck = True
Exit Function
Blast3:
FilletCheck = False 
End Function