[matpez]

Ora come ora nn mi viene in mente se esiste o no...però puoi provare a fare cosi:

Dim dNumero     As Double
  
dNumero = 1.15
  
MsgBox (Right(dNumero, Len(CStr(dNumero)) - InStrRev(CStr(dNumero), ",")))

è un po' arcaico ma funziona