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