No existe... o al menos hasta la version 1.1 del framework no he visto una funcion que haga eso... se tiene que implementar de forma manual
Tambien lo podrías hacer así:
Cita: Dim sNum As String = MiCadenaNumerica.ToString
Dim NroDecimales As Integer = sNum.Substring(sNum.IndexOf(".")).Length - 1
Ya es cuestion de estilos..
Salu2