Ciao gio-mx !
Potresti usare questa funzione:
codice:
Function getDecimale(ByVal valore As Double) As Double
    Dim str() As String
    Dim risultato As String
    risultato = Replace(CStr(valore), ".", ",")
    str = Split(risultato, ",")
If UBound(str) > 0 Then
    risultato = "0," & str(UBound(str))
    Else
    risultato = "0"
End If
    getDecimale = CDbl(risultato)
End Function
'------------------------------------------------------------------
Private Sub Command1_Click()
    Dim valore As Double
    valore = 1325.0022145
    MsgBox getDecimale(valore)
End Sub