Брутфорс, детка!

Когда сослуживцу Майка было выдано задание заменить все
символами новой строки, он решил предусмотреть все варианты. Т.к.
,
,
, и так далее, являются допустимыми в HTML, он ясно осознал, что эта работа просто создана для него.

"В топку регистрозависимое сравнение строк", должно быть думал он. "Это должно рашаться гораздо проще! О, конечно, мне кажется есть только один путь это сделать... брутфорс, детка!"

'Замена
; переводом строки vbCrLf
If LCase ( strTagLess ). Contains ( "
" ) Or
LCase ( strTagLess ). Contains ( "
" ) Or
LCase ( strTagLess ). Contains ( "
" ) Then
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
strTagLess = Replace ( strTagLess, "
", vbCrLf )
End If

Майк доделал работу сослуживца, заменив этот код на:

Regex. Replace ( html, "
", vbCrLf, RegexOptions. IgnoreCase )