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