Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim arreglo() As String = RichTextBox1.Text.Split(" "c)
        Dim i As Integer = 0
        For Each word As String In arreglo
            RichTextBox1.Find(word , RichTextBoxFinds.MatchCase)
            If word = "word" Then
                i = i + 1
            End If
 
        Next