<DllImport("MyFileDll.dll", CharSet:=CharSet.Auto)> _
    Private Function GetValue(ByVal hWnd As System.IntPtr, _
   ByVal lpTs As System.Text.StringBuilder, _
   ByVal nMC As Integer) As Integer
    End Function
 

Private Declare Function GetValue Lib "MyFileDll" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Dim array() As String = RichTextBox1.Text.Split(" "c)
     For Each palabra As String In array
            RichTextBox1.Find(palabra, RichTextBoxFinds.MatchCase) '//Busca la palabra y la selecciona
            Select Case RichTextBox1.SelectionColor.Name
                Case "Black" : negro += 1
                Case "Red" : rojo += 1
            End Select
        Next
 

      Dim rojo = 0, negro As Integer = 0
        With RichTextBox1
            .Text = "Esto es una frase de prueba, esto no se más que poner"
            .Find("Esto")
            .SelectionColor = Color.Red
            .Find("una")
            .SelectionColor = Color.Red
 
            Dim array() As String = .Text.Split(" "c)
            For Each palabra As String In array
                .Find(palabra, RichTextBoxFinds.MatchCase) '//Busca la palabra y la selecciona
                Select Case .SelectionColor.Name
                    Case "Black" : negro += 1
                    Case "Red" : rojo += 1
                End Select
            Next
            MessageBox.Show(String.Format("negro: {1}{0}rojo: {2}", Environment.NewLine, negro, rojo))
 
            '//Deselecciona y coloca el cursor al principio del texto
            .DeselectAll()
            .SelectionStart = 0
        End With
 

 
Case Color.Black.Name : negro += 1
Case Color.Red.Name : rojo += 1
Case Color.Blue.Name : azul += 1
 

 
Dim rojo = 0, negro = 0, azul As Integer = 0
        With RichTextBox1
            .Text = "Esto es una frase de prueba, esto no se más que poner"
            .Find("Esto")
            .SelectionColor = Color.Red
            .Find("una")
            .SelectionColor = Color.Red
            .Find("prueba")
            .SelectionColor = Color.Blue
            Dim array() As String = .Text.Split(" "c)
            For Each palabra As String In array
                .Find(palabra, RichTextBoxFinds.MatchCase) '//Busca la palabra y la selecciona
                Select Case .SelectionColor.Name
                    Case Color.Black.Name : negro += 1
                    Case Color.Red.Name : rojo += 1
                    Case Color.Blue.Name : azul += 1
                End Select
            Next
            MessageBox.Show(String.Format("negro: {1}{0}rojo: {2}{0}azul: {3}", Environment.NewLine, negro, rojo, azul))
 
            '//Deselecciona y coloca el cursor al principio del texto
            .DeselectAll()
            .SelectionStart = 0
        End With
  MessageBox.Show(String.Join(vbCrLf, array))
 

  
  Esto
  es
  una
  frase 
  de 
  prueba, 
  esto 
  no 
  se 
  más 
  que 
  poner

 
 RichTextBox1.Find(palabra.Replace(",", ""), RichTextBoxFinds.MatchCase) '//Busca la palabra y la selecciona

        Dim rojo = 0, negro = 0, azul As Integer = 0
        With RichTextBox1
            .Text = "Esto es una frase de prueba, esto no se más que poner"
            .Find("Esto")
            .SelectionColor = Color.Red
            .Find("una")
            .SelectionColor = Color.Red
            .Find("prueba")
            .SelectionColor = Color.Blue
 
            Dim array() As String = .Text.Split(" "c)
            For Each palabra As String In array
                .Find(palabra.Replace(",", ""), RichTextBoxFinds.MatchCase) '//Busca la palabra y la selecciona
                Select Case .SelectionColor.Name
                    Case Color.Black.Name : negro += 1
                    Case Color.Red.Name : rojo += 1
                    Case Color.Blue.Name : azul += 1
                End Select
            Next
            MessageBox.Show(String.Format("negro: {1}{0}rojo: {2}{0}azul: {3}", Environment.NewLine, negro, rojo, azul))
 
            '//Deselecciona y coloca el cursor al principio del texto
            .DeselectAll()
            .SelectionStart = 0
            MessageBox.Show(String.Join(vbCrLf, array))
        End With

  
  negro:9
   rojo: 2
   azul: 1

    Public Class CountWordsColorRichTextBox
    Private Shared azul, rojo, negro As Integer
    Public Shared Sub CountColorsWords(ByVal myRich As RichTextBox)
        With myRich
            Dim array() As String = .Text.Split(" "c)
            For Each palabra As String In array
                .Find(palabra.Replace(",", ""), RichTextBoxFinds.MatchCase) '//Busca la palabra y la selecciona
                Select Case .SelectionColor.Name
                    Case Color.Black.Name : negro += 1
                    Case Color.Red.Name : rojo += 1
                    Case Color.Blue.Name : azul += 1
                End Select
            Next
        End With
 
    End Sub
    Public Shared Property GetBlueCount() As Integer
        Get
            Return azul
        End Get
        Set(ByVal value As Integer)
            azul = 0
        End Set
    End Property
 
    Public Shared Property GetRedCount() As Integer
        Get
            Return rojo
        End Get
        Set(ByVal value As Integer)
            rojo = 0
        End Set
    End Property
    Public Shared Property GetBlackCount() As Integer
        Get
            Return negro
        End Get
        Set(ByVal value As Integer)
            negro = 0
        End Set
    End Property
End Class
 

Public Class Form1
 
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
 
        With RichTextBox1
            .Text = "Esto es una frase de prueba, esto no se más que poner"
            .Find("Esto")
            .SelectionColor = Color.Red
            .Find("una")
            .SelectionColor = Color.Red
            .Find("prueba")
            .SelectionColor = Color.Blue
        End With
 
        CountWordsColorRichTextBox.CountColorsWords(RichTextBox1)
        MsgBox("negro: " & CountWordsColorRichTextBox.GetBlackCount)
        MsgBox("rojo: " & CountWordsColorRichTextBox.GetRedCount)
        MsgBox("azul: " & CountWordsColorRichTextBox.GetBlueCount)
    End Sub
End Class
 
Public Class CountWordsColorRichTextBox
    Private Shared azul, rojo, negro As Integer
    Public Shared Sub CountColorsWords(ByVal myRich As RichTextBox)
        With myRich
            Dim array() As String = .Text.Split(" "c)
            For Each palabra As String In array
                .Find(palabra.Replace(",", ""), RichTextBoxFinds.MatchCase) '//Busca la palabra y la selecciona
                Select Case .SelectionColor.Name
                    Case Color.Black.Name : negro += 1
                    Case Color.Red.Name : rojo += 1
                    Case Color.Blue.Name : azul += 1
                End Select
            Next
        End With
 
    End Sub
    Public Shared Property GetBlueCount() As Integer
        Get
            Return azul
        End Get
        Set(ByVal value As Integer)
            azul = 0
        End Set
    End Property
 
    Public Shared Property GetRedCount() As Integer
        Get
            Return rojo
        End Get
        Set(ByVal value As Integer)
            rojo = 0
        End Set
    End Property
    Public Shared Property GetBlackCount() As Integer
        Get
            Return negro
        End Get
        Set(ByVal value As Integer)
            negro = 0
        End Set
    End Property
End Class