Looking for people who could help me with a text search.
Code that I want to make work perfectly, but it finds only one word.

So far I have only this code.

Code:
  Dim a As String
        Dim b As String
        a = mu1.Text
        b = InStr(mu2.Text, a)
        If b Then
            mu2.Focus()
            mu2.SelectionStart = b - 1
            mu2.SelectionLength = Len(a)
        Else
            MsgBox("No text Found!")
        End If
I need a code which is found not only a word but also all related to my fit the found word.

To help you understand what I really need to give the image, you will see that we have created code that I include only one word but even all the found words in accordance with the keywords I entered.



So I need a code that after entering some word keyword could find all the other related keywords with my summary of the word to fit.

Use textbox1 and multi textBox2 and button.
So I want to know how do I do it?

As you can see it finds only one word.
But this is not what I need.
I need it all found and keywords to highlight a full row and not just the part.