راه های مختلفی برای بدست آوردن تعداد رقم های بعد از اعشار میتونین استفاده کنید مثلا :

Dim GhesmatAshar As String = String.Empty

If TextBox1.Text.Contains(".") Then
GhesmatAshar = Split(Str(Math.Abs(CDbl(TextBox1.Text))), ".", , CompareMethod.Text)(1)
End If

Label1.Text = GhesmatAshar.Length