Code:
Sub CATMain()Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Dim products1 As Products
Set products1 = product1.Products
Dim product2 As Product
Set product2 = products1.Item(1)
MsgBox product2.Analyze.Mass
Dim product2 As Product
Set product2 = products1.Item(1).ReferenceProduct
MsgBox product2.Analyze.Mass
End Sub