Get the inscribed circle of a irrugular polygonal sketch

Hi friends , I need a vba code that allow to get the inscribed circle of a irrugulat 2D sketch as shown in the figure in attachement.thank u

SolidworksApi macros