Imports System
Imports System.Text.RegularExpressions

Public Class Test
	Public Shared Sub Main()
		Dim bodyContent as string = "<html><body><img src='image001.png'/><img src='image002.png'/></body></html>"
		Dim searchStr as string = "image002"
		Dim imgRegex As New Regex("<img[^>]+" & searchStr & "[^>]*>", RegexOptions.IgnoreCase)
		bodyContent = imgRegex.Replace(bodyContent, "<div class='newCode'><a href='https://m...content-available-to-author-only...e.net/ViewAttachment'><img src='https://m...content-available-to-author-only...e.net/ViewThumbnail'></a></div>")
		Console.Write(bodyContent)
	End Sub
End Class