>I have the following validation expression for an email text box. I need to allow an apostrophe to be in the email address. My understanding is that I need to add the apostrophe to the ValidationExpression ('). But I am not sure where in the following expression the apostrophe should be? Should it be in the first bracket, e.g. [-+.'] or some other place?
>
>

>ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">
>

If you want to consider more, I have the following:

    Public Function Validate() As Boolean
        Dim lnLocation As Integer = 0

        ' Initialization
        cEmail = Trim(cEmail)

        ' The email cannot be blank
        If cEmail.Length = 0 Then
            cMessage = cEmailCannotBeBlank
            Return False
        End If

        ' No dot
        If InStr(cEmail, ".") = 0 Then
            cMessage = cYouNeedToHaveAtLeastOneDotInTheEmail
            Return False
        End If

        ' No @
        If InStr(cEmail, "@") = 0 Then
            cMessage = cYouNeedToHaveAtLeastOneAtSignInTheEmail
            Return False
        End If

        ' We need to have at least 5 characters
        If cEmail.Length < 5 Then
            cMessage = cYouNeedToHaveAtFiveCharacterInTheEmail
            Return False
        End If

        ' We can't accept an email starting with @
        If Mid(cEmail, 1, 1) = "@" Then
            cMessage = cYouCannotHaveAnEmailStartingWithAnAtSign
            Return False
        End If

        ' The last character cannot be a dot
        If Mid(cEmail, cEmail.Length, 1) = "." Then
            cMessage = cTheLastCharacterOfYourEmailCannotBeADot
            Return False
        End If

        ' If we have more than one @
        If oApp.Occurs("@", cEmail) > 1 Then
            cMessage = cYouCannotHaveMoreThanOneAtSignInTheEmail
            Return False
        End If

        ' No space
        If InStr(cEmail, " ") > 0 Then
            cMessage = cYouCannotHaveASpaceInTheEmail
            Return False
        End If

        ' No comma
        If InStr(cEmail, ",") > 0 Then
            cMessage = cYouCannotHaveACommaInTheEmail
            Return False
        End If

        ' After the last dot, we can't have a digit
        If Val(Mid(cEmail, oApp.At(".", cEmail, oApp.Occurs(".", cEmail)) + 1)) > 0 Then
            cMessage = cAfterTheLastDot
            Return False
        End If

        lnLocation = InStr(cEmail, "@")

        ' We cannot have a dot immediately after the @
        If Mid(cEmail, lnLocation + 1, 1) = "." Then
            cMessage = cYouCannotHaveADotAfterAtSign
            Return False
        End If

        lnLocation = InStr(cEmail, ";")

        ' We cannot have a semi-colon
        If lnLocation > 0 Then
            cMessage = cYouCannotHaveASemiColonInTheEmail
            Return False
        End If

        ' We cannot have a dot at the end
        If Mid(cEmail, cEmail.Length, 1) = "." Then
            cMessage = cYouCannotHaveADot
            Return False
        End If

        ' We cannot have a dot before the @
        If oApp.At(".@", cEmail) > 0 Then
            cMessage = cYouCannotHaveADotBeforeAtSign
            Return False
        End If

        ' If we have a <
        If oApp.At("<", cEmail) > 0 Then
            cMessage = cYouCannotHaveALessThanSign
            Return False
        End If

        ' If we have a >
        If oApp.At(">", cEmail) > 0 Then
            cMessage = cYouCannotHaveAGreaterThanSign
            Return False
        End If

        Return True
    End Function