VB.NET RemoveTag

Function RemoveTag(Content As String, TagBegin As String, TagEnd As String) As String

Dim Start As Integer
Dim Finish As Integer
Dim Pos As Integer

Pos = Start + 1

While InStr(Pos, Content, TagBegin, CompareMethod.Text)
Pos = Start + 1
Start = InStr(Pos, Content, TagBegin, CompareMethod.Text)
Pos = Start + 1
Finish = InStr(Pos, Content, TagEnd, CompareMethod.Text)
Content = Content.Substring(0, Start - 1) & Content.Substring(Finish + Len(TagEnd) - 1, Len(Content) - Finish - Len(TagEnd) + 1)
End While

RemoveTag = Content

End Function