VB.NET Strip HTML

Imports System.Text.RegularExpressions

Function StripHTML(Content As String) As String

Dim Match As String = "<(?:[^>=]|='[^']*'|=""[^""]*""|=[^'""][^\s>]*)*>"

StripHTML = Regex.Replace(Content, Match, "", RegexOptions.IgnoreCase Or RegexOptions.IgnorePatternWhitespace Or RegexOptions.Multiline Or RegexOptions.Singleline)

End Function

VB.NET Regex Validate Email

Imports System.Text.RegularExpressions

Dim Test As Match
Dim Email As String

Test = Regex.Match(Email, "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$")

If Test.Success Then

End If

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