Vb.net - Regex - Validando email

Função para validar email utilizando regex

Function ValidaEmail(ByVal emailAddress As String) As Boolean
        ' Verifica se há caracteres inválidos no email
        ' Pattern ou mascara de verificação
        Try
            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)

            ' Caso corresponda
            If emailAddressMatch.Success Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            MyMsgBox("Email inválido", "Ativação", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Return False
        End Try
    End Function