Public Enum SearchOption

_OR
_PHRASE
End Enum

Private Function Highlight(ByVal strText As String, ByVal strFind As String) As String

Dim nPos

Dim nLen

Dim nLenAll

Dim strBefore, strAfter As String

strBefore = "<span style='background:yellow'>"
strAfter = "</span>"
nLen = Len(strFind)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
Highlight = strText
If nLen > 0 And Len(Highlight) > 0 Then

nPos = InStr(1, Highlight, strFind, 1)
Do While nPos > 0

Highlight = Left(Highlight, nPos - 1) & _
strBefore & Mid(Highlight, nPos, nLen) & strAfter & _
Mid(Highlight, nPos + nLen)
nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)
Loop

End If

End Function

Public Function DOHighLight(ByVal strText As String, ByVal strFind As String, ByVal Opt As SearchOption) As String

Select Case Opt

Case SearchOption._OR

Dim sterm As Object = Split(strFind, " ")

Dim mterm As Object = UBound(sterm)

Dim counter As Integer

For counter = 0 To mterm

strText = Highlight(strText, sterm(counter))
Next

Case SearchOption._PHRASE

strText = Highlight(strText, strFind)
End Select

Return strText

End Function