Open the attribute table of the polygon layer.
Use the options menu to create an Area field.
The type for the field should be double.
For precision, which is the length of the field, use 10.
For scale, which is the number of decimal places, use 1 .
Right-click heading for the Area field and choose calculate values...
Check advanced.
In the "Pre-Logic VBA Script Code" text area, enter:
Dim dblArea as double
Dim polyArea as IArea
Set polyArea = [shape]
dblArea = polyArea.areaIn the "Area =" text field, enter:
dblArea
Click OK