How to specify doubled distance in Macro

I am using VBA to automatically create an model with revolved parts. How can I specify the distance from a line to the center line to be doubled in the macro. It reset back to radius whenever I close Solidworks and reopen it. So when I use the macro next time, it will give me twice as large diameter as I specified. Is there a way to specify what type of dimension(the one with doubled distance relation) you want to put in the drawing?

Thanks in advance for replies. 

SolidworksApi macros