Function Nbzero(c) As Integer
If Not IsNumeric(CStr(c)) Then Exit Function
Nbzero = Len(Split(Replace(c, ",", ".") & ".", ".")(1)) - Len(CStr(Val(Split(Replace(c, ",", ".") & ".", ".")(1))))
If Nbzero < 0 Then Nbzero = 0
End Function
Sub test()
Debug.Print Nbzero(1234.01),Nbzero(1234.001),Nbzero(1234.0001),Nbzero(1234.00001)
End Sub