Quiero una función para probar que una cadena tiene el formato de una dirección de correo electrónico.

¿Qué viene incorporado con el framework .NET para hacer esto?

Esto funciona:

Function IsValidEmailFormat(ByVal s As String) As Boolean
    Try
        Dim a As New System.Net.Mail.MailAddress(s)
    Catch
        Return False
    End Try
    Return True
End Function

Pero, ¿hay una manera más elegante?