IsEmail

<Extension()> _
Public Function IsEmail(ByVal value As String) As Boolean
    Dim reg As Regex = New Regex("^\d{3}-\d{2}-\d{4}$")
    Return reg.IsMatch(value)
End Function

Texbox1.Text.IsEmail

Description

Check string for valid Email address

Details

• Author: NetDorkie
• Submitted on: 16-7-2009 15:22:26
• Language: VB
• Type: System.String
• Views: 2793

Double click on the code to select all.