Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search "((((((CATProductSearch.Part + CATStFreeStyleSearch.PartFeature) + CATAsmSearch.Part) + CATPrtSearch.PartFeature) + CATGmoSearch.PartFeature) + CATPcsSearch.Part) - ((CATProductSearch.Product + CATAsmSearch.Product) + CATPcsSearch.Product)),all"
I = selection1.Count
For I = 1 To productDocument1.Product.Products.Count
selection1.Search ("Name=Partname'.'" + CStr(I) + ",all")
If selection1.Count > 0 Then
MsgBox (selection1.Item(1).value.Name)
End If
Next

End Sub