Visual Basic - Contar palabras en un RichTextBox

Tengo un RichTextBox con un texto, y me gustaria poder contar las veces que se repite, por ejemplo, la palabra "Hola", y que me devuelva el valor numerico. ¿Cómo podría hacerlo?

Desde luego que sería un valor NUMÉRICO, si quieres las VECES que se repite. Podrías usar la función InStr( ), así que revisa en la MSDN la manera en que puedes usarla.

estas seguro de lo que dices?

porque siempre recomiendas la ayuda del MSDN?? será porque no sabes ni tan siquiera lo que se pregunta

que acaso no crees que si ya la hubiera revisado, te estuviera preguntando??

Hola, asta!!

Solo tienes que hacer esto:

con = 0
For i = 1 To Len(Text1)
If InStr(i, Text1, "hola") <> 0 And pos <> InStr(i, Text1, "hola") Then
con = con + 1
pos = InStr(i, Text1, "hola")
End If
Next
MsgBox con

Espero te sirva

Saludos!!

Hola!

No olvidemos que el control RichTextBox tiene el método Find para buscar palabras y es mucho mas rápido que hacer comparación de cadenas. (Compruébalo en un texto de 20.000 palabras, la diferencia es abismal).

sBuscar = "Hola"
iLen = Len(sBuscar)
lpos = RichTextBox1.Find(sBuscar, , , 2)
While lpos > 0
iVeces = iVeces + 1
RichTextBox1.SelStart = lpos
RichTextBox1.SelLength = iLen
lpos = RichTextBox1.Find(sBuscar, lpos + iLen, , 2)
Wend
MsgBox iVeces

Salu2 a to2

Lo probe y no funciona, me da 0

Para que el método Find funcione en un control RichTextBox, éste tiene que estar cargado desde un archivo de texto.