API access to Sketch dimension Unit Precision

How can I modify one dimesion's unit's precision using vba, NOT vb.net?  Let's say it is D1@Sketch1.

SolidworksApi macros