I really don't understand the need to do it but If you want to achieve it for display purpose. You can have A assigned as 1.00 and then make use of Format functions. examples stated below:

' User-defined numeric formats.
msgbox formatnumber(a,3,0) 'Returns 1.000
msgbox formatcurrency(a,3,0) 'Returns $1.000 depending upon regional settings