Email Address Validation in datagridview Problem

Private Sub DataGridView2_CellValidating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles dgCompany.CellValidating
        If e.ColumnIndex = 6 Then
            If Not IsEmailValid(e.FormattedValue) Then
                MsgBox("Enter Valid Email Address")
                e.Cancel = True
                Dim result As DialogResult = MessageBox.Show("The Email Address is not valid." & " Do you want re-enter it?", "Invalid Email Address", MessageBoxButtons.YesNo, MessageBoxIcon.Error)
                If result = Windows.Forms.DialogResult.Yes Then
                    e.Cancel = True
                End If
            End If
        ElseIf dgCompany.CurrentRow.Cells(6).Value.ToString() = String.Empty Then
            e.Cancel = False
        End If
    End Sub
    Function IsEmailValid(ByVal EmailAddress As String) As [Boolean]
        Dim pattern As String = "^[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]$"
        Dim emailAddressMatch As Match = Regex.Match(EmailAddress, pattern)
        If emailAddressMatch.Success Then
            IsEmailValid = True
        Else
            IsEmailValid = False
        End If
    End Function