Como contar la cantidad de veces que aparece un caracter determinado en una cadena?

[pkj]

Solo haz un bucle y ve contando:

Código vb:

Dim F as long
dim contador as long
const caracterbuscado = "r"
contador=0
For F=1 to len(linea)
  if mid$(linea,f,1)=caracterbuscado then contador=contador+1
next f
msgbox contador