Floor Area in DataAccess

How can I find overall floor area with RAM DA in VBA(total area within all slab edge polygons)? I don't want to subtract the openings/penetrations. I based my code off of the RAM Material Takeoff spreadsheet found on these forums but it is double counting overlapping decks and subtracting opening areas.