Comprobación campo correo

[jorgegetafe]

Quiero validar el correo que introduce el usuario, pero el siguiente código me dice siempre que el correo es erróneo :

Código:

 If TextEmail.Text <> "" Then
                If Not TextEmail.Text Like ("*@*.*") Then
                    mensajeError = mensajeError & " correo electrónico "
                    ok = False
                End If
            End If

¿Tengo bien la sentencia de comparación del like?

gracias

[Peterpay]

si es vb.net porq no usar un regex y la siguiente expresion regular

\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b

[verdugo_2687]

yo tengo este ejemplo mira

Private Shared Function validarmail(ByVal mail As String) As Boolean
Return Regex.IsMatch(mail, "^([\w-]+\.)*?[\w-]+@[\w-]+\.([\w-]+\.)*?[\w]+$")
End Function


y en otro metodo

Private Sub valida()
Dim mail As String
mail = txtMail.Text
If Len(mail) > 0 Then
MsgBox(validarmail(mail), MsgBoxStyle.MsgBoxRight, "TU MAIL ES:")
End If
ENDSUB

[jorgegetafe]

Iniciado por Peterpay

si es vb.net porq no usar un regex

No sabía ni que existía!!!! Me ha funcionado a la perfección, muchas gracias.