change specific words color in gridview

Public Function Highlight(ByVal InputTxt As String) As String

Dim i As Integer

Dim Search_Str As String = key

Dim arr_color As String()

Dim highlight_str As String = ""

arr_color = Search_Str.Split(" ")

For i = 0 To UBound(arr_color)

' Setup the regular expression and add the Or operator.

Dim RegExp As Regex = New Regex((arr_color(i).Trim()).Replace(" ", "").Trim(), RegexOptions.IgnoreCase)

' Highlight keywords by calling the MatchEvaluator delegate each time a keyword is found.

highlight_str = RegExp.Replace(highlight_str, New MatchEvaluator(AddressOf ReplaceKeyWords))

' Set the Regex to nothing.

RegExp = Nothing

Next

End Function

Public Function ReplaceKeyWords(ByVal m As Match) As String

Return "" & m.Value & ""

End Function

and it's working