Search Results Are Highlighted Within The Text Box? How ? Access 2013

Question

Hi Every one ,
Below I am describing some coding issue in VBA-MS Access I am facing right now , and I hope u guys could help me resolve the issues :
DB : MS access 2013 - RichTextBox In A Form -
Language : VBA
Problem In short : struggling to highlighting user search word within the search result query ..
What I want :
Helping to fix the second code shown below , the one I used to highlight ( reformat ) the text who's bound to a a field that store memo data type . code
My Result Search Query VBA COde ( Work perfectly )
strWhereToSearch = IIf(.framSearchIn.Value = 1, "[quknotSubject]", "[quknotBody] ")
strCondition = strWhereToSearch & " Like '* " & strTextSearch & " *' OR " & _
strWhereToSearch & " Like '" & strTextSearch & " *' OR " & _
strWhereToSearch & "Like '* " & strTextSearch & "'"
strSql = " Select * from qryExtraTool_QuickNoteSubCatMainCat "
strSql = strSql & " WHERE " & strCondition & " ORDER BY quknotDate"
The code that i am struggling to make it work for me to highlight the search word inside the textbox called .txtQuickNoteBody :
'Control Source for the text box to display matches.
Const strcTagStart = "<font color=""""red"""">"
Const strcTagEnd = "</font>"
strControlSource = "=IIf(" & strField & " Is Null, Null, " & _
"Replace(" & strField & ", """ & strSearchValue & """, """ & _
strcTagStart & strSearchValue & strcTagEnd & """))
.txtQuickNoteBody.ControlSource = strControlSource
Thank u all in advance .

Answer 1

Thank u so Bruce , I finally found an answer to my question.
The solution u provided looks complete except that i am confused by the meaning of strField , may i didnt provide more details in my  post .
The strField var i provided earlier was not meant to be placed in my code  , the correct one is shown below .However , the strField means according to me is the field against which the search operation should take place based on the ( search Term )
the user provided . 
Here is the code after applying the solution u suggested :
'Information collected from the user      
 strWhereToSearch = IIf(.framSearchIn.Value = 1, "[quknotSubject]", "[quknotBody] ")       
strCondition = strWhereToSearch & "  Like '* " & strTextSearch & " *' OR " & _
strWhereToSearch & " Like '" & strTextSearch & " *' OR " & _ 
strWhereToSearch & "Like '* " & strTextSearch & "'" 
'Fill result search  Recordset      
strSql = " Select  * from qryExtraTool_QuickNoteSubCatMainCat   "         
strSql = strSql & " WHERE   " & strCondition & "  ORDER BY quknotDate"  
'Control Source for the text box to display matches. ( Highlight the search word )     
txtQuickNoteBody = SearchHilight(strWhereToSearch, strTextSearch)
Tell me if my implementation to your code is right ?
Thank u again Bruce ...