Contar los caracteres de una cadena en Visual Basic .Net

Una sencilla funcioncilla que sirve para contar el número de caracteres que tiene una cadena. Por ejemplo, imaginar que queremos saber el número de puntos que tiene un nombre de un fichero. Pues podéis utilizar esto:

Public Class Form1

Private Function ContarCaracteres(ByVal cadena As String, ByVal caracter As Char) As Integer

  Dim n As Integer
  Dim contador As Integer = 0

  For n = 0 To Len(cadena) - 1
     If cadena.Chars(n) = caracter Then
      contador = contador + 1
     End If
  Next n

  Return contador

End Function

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


  MessageBox.Show(ContarCaracteres("cocodrilo", "o"))

End Sub
End Class