GET PRODUCT AREA problem!!!

[bakoriua]

HI
I'm a new catia automation user, I'm trying to obtain the volume and external area of an Assembly, but it does not work...this is the code I used

..........
' Retrieve the selected component
Dim oSelection As Selection
Set oSelection = CATIA.ActiveDocument.Selection
Dim oProduct As AnyObject
On Error Resume Next
Set oProduct = oSelection.FindObject("CATIAProduct")
If (Err.Number <> 0) Then
MsgBox "No selected product"
Else
On Error GoTo 0


' Read the Volume data
Dim dVolume As Double
dVolume = oProduct.Analyze.Volume
'Read the Area data
Dim dArea As Double
dArea = oProduct.Analyze.WetArea

..................
But the volume and area are always =0
Can Someone help me?