Getting the default precision from the dimension tool

Hello folks,

I've been puttering with various VBA macros over the years.  A lot of these are not necessarily usable for most folks, but I've made them available under the LGPL on Sourceforge as "Cedar Shakes".

One of the macros I've been working on hackishly adds a secondary dimension to a dimension line, so you can have two different units of measurement.

The one thing that seems to have stymied me is getting the default precision of the dimension tool.  I thought that I could get the precision from the style via:

    ActiveDocument.StyleSheet.FindStyle("~dimension~").GetPropertyAsString("dimension")

I thought this method was working, but apparently I'd set myself up on some test documents.

If I create a new document and use this code snippet, the style is empty.  If I change the default precision of the dimension manually, the style is then populated with the new precision.

Obviously I'd like a reliable way of getting the precision.  Does anyone have any suggestions how to get the default value?