Contar caracteres

Dim x As String = "abcdd"

Dim i As Integer = x.Count(Function(c) c="d")

i = 2

fuente