nro de decimales

hola a todos,

¿sabeis si existe una forma de obtener el (posible) nº de decimales de
un numero?

de momento uso esto, que parece funcionar, pero me da la impresion de
que debe de haber alguna forma mas directa (¿matematica?), sin tener
que recurrir a las funciones de texto. Aunque no he logrado
encontrarla.

Public Function Nro_Decimales(ByVal nro As Double) As Integer
On Error Resume Next
If InStr(nro, Application.DecimalSeparator) > 0 Then _
Nro_Decimales = Len(CStr(nro)) - _
InStr(nro, Application.DecimalSeparator)
End Function

sobre todo es curiosidad, pero gracias por anticipado

un saludo
Ivan