Imports System.Text.RegularExpressions
Function IsValidPhone(ByVal str As String) As Boolean
Dim pattern As String = "\d{3}-\d{3}-\d{4}"
Dim re As RegEx = New RegEx(pattern)
Dim m As Match = re.Match(str)
Return m.Success
End Function
'Email Regex pattern:
Dim Pattern As String = "^[\w-]+(?:\.[\w-]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}$"