Dim reg As New Regex(stringWithTextIn, RegularExpressions.RegexOptions.IgnoreCase Or RegularExpressions.RegexOptions.Singleline)
Dim _match As MatchCollection = reg.Matches("my loaded text comes here")
If _match.Count = 0 Then Return
For Each match As Match In _match
'call ReplaceMatch or whatever you want
Next