Tendrías que hacer algo mas o menos así
Código:
Dim tuVariable As Double
tuVariable = 0.56
Print Replace(CStr(tuVariable), ".", ",")
Lo del cero que no sale no debería de pasar. Es posible que estes procesando el valor string del double y en alguna parte se esté omitiendo los ceros.