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