Dim dblArea as double
Dim pArea as IArea
Set pArea = [shape]
dblArea = pArea.area

dblArea