Это не будет работать, пока вы печатаете, если это то, что вы ищете, но я использую это для выделения подстрок:
Function Highlight(ByVal Search_Str As Object, ByVal InputTxt As String, ByVal StartTag As String, ByVal EndTag As String) As String
Highlight = Regex.Replace(InputTxt, "(" & Regex.Escape(Search_Str) & ")", StartTag & "$1" & EndTag, RegexOptions.IgnoreCase)
End Function
и назовите это так:
Highlight("A", "Color All my A's red", [span class=highlight]', '[/span]')
Где у класса 'highlight' есть желаемое цветовое кодирование / форматирование:
.highlight {text-decoration: none;color:black;background:red;}
Кстати: вам нужно поменять квадратные скобки на угловые ... они не появятся, когда я их наберу ...