CATIA GeoSet copy mit specialPaste mit CATPrtResultWithOutLink

Hi, Ihr wollt ein Geoset aus einem Part in ein anders Part mit der Mehtode PasteSpecial bewerkstelligen?
Hier habe ich euch mal einen Code bereitgestellt.
Viel Spaß

Dim oSel As Selection
Set oSel = CATIA.ActiveDocument.Selection
oSel.Clear
oSel.Search ("Name:7385091*,all")
Dim oProduct As Product
Set oProduct = oSel.Item(1).Value
Dim oPart As Part
Set oPart = oProduct.ReferenceProduct.Parent.Part
oSel.Clear
oSel.Add oPart.HybridBodies.Item("Fertigteil_Flaechen")
oSel.Copy
Dim oZielProduct As Product
Dim oZielPart As Part
oSel.Search ("Name:Part1*,all")
Set oZielProduct = oSel.Item(1).Value
Set oZielPart = oZielProduct.ReferenceProduct.Parent.Part
oSel.Clear
oSel.Add oZielPart
oSel.PasteSpecial ("CATPrtResultWithOutLink")