Imports System
Public Class Program
Public Shared Function count_digits_after_comma(ByVal d As Double) As Integer
Dim dstr As String = d.ToString()
Return dstr.Length - dstr.IndexOf(".") - 1
End Function
Public Shared Sub Main()
Dim d As Double = 9812347.9085
Console.Write(count_digits_after_comma(d))
End Sub
End Class
' run:
'
' 4
'