How to get midpoint coordinates in a sketch.

Hi,All,I want to get midpoint coordinates in a sketch . pls see the below pic.

it like get poly-line midpoint in Autocad.

i want to get the code for VBA.

Who can help me?

SolidworksSketching