Copy Code code as follows:
' replaces pattern with highlighted replacement (using style) and preserves case
Public Function Highlight (StrText, Strfind)
Dim objRegExp, I, strhighlight
' Split the search terms into an array
Dim Arrfind
Arrfind = Split (Strfind, "")
' Initialize the regular Expression object to perfom the search
Dim Omatches, Smatch
Set oregexp = New RegExp
Oregexp.global = True ' Returns all matches to the search term
Oregexp.ignorecase = True ' case insensitive
' Loop through ' the array of search terms to find matches
For i = 0 to UBound (arrfind)
Oregexp.pattern = Arrfind (i) ' Sets the search pattern string
Set omatches = Oregexp.execute (strText) '//performs the search
For the match in Omatches
' Build the code to be used to highlight results
Strhighlight = "<span class=" "Highlight" ">" & Match.value & "</span>"
Next
' Replace matches from the ' above code
StrText = Oregexp.replace (StrText, Strhighlight)
Next
Highlight = StrText
Set objRegExp = Nothing
End Function