regione

Hello. I am trying to process a vba function that, once selected a dotted surface or simply the contour of a closed area, will return me the area of this region. Does anyone have any idea how to do this? Is there a dry code? Thank you.