Private Sub Form_Load()
    
    RichTextBox1.Text = ""

    Dim cadenas(1 To 3) As String
 
    cadenas(1) = "AZUL": cadenas(2) = "ROJO": cadenas(3) = "VERDE"
   
    Dim i, Search, Where
 
    For i = 1 To 3
   
        RichTextBox1.Text = RichTextBox1.Text + " " + cadenas(i) ' Si deseas insertarlas con saltos de linea la cambias a:
                                                                 ' RichTextBox1.Text = RichTextBox1.Text + cadenas(i) + vbCrLf
    Next i
 
    For i = 1 To 3

        Search = cadenas(i)
    
        Where = InStr(RichTextBox1.Text, Search)  ' Busca la cadena en el texto.
    
        If Where Then                             ' Si se encuentra,
            RichTextBox1.SelStart = Where - 1     ' se establece el inicio de la selección RichTextBox1.SelLength = Len(Search)
            RichTextBox1.SelLength = Len(Search)  ' y se establece la longitud para seleccionar.
        
            Select Case cadenas(i)
                Case "AZUL"
                    RichTextBox1.SelColor = vbBlue
                Case "ROJO"
                    RichTextBox1.SelColor = vbRed
                Case "VERDE"
                    RichTextBox1.SelColor = vbGreen
            End Select
        
        Else
            MsgBox "Cadena no encontrada."   ' Se notifica al usuario.
        End If

    Next i
 
    RichTextBox1.SelStart = Len(RichTextBox1)
 
End Sub