Validar el ingreso de un email en un textbox

En esta oportunidad usaremos un validador en el ingreso de un email en un texbox utilizando "InStr" el cual nos permite restringir el tipo de caracteres a emplearse en la digitación de un correo electrónico de forma correcta. Ademas utilizamos If...Then...Else para condicionar que el ingreso se realice correctamente, mediante cuadros de dialogos que nos indicaran si el ingreso del email se realizo correctamente o no.

Sintaxis

Private Sub CommandButton1_Click()
If InStr(1, TextBox1.Text, "@") = 0 Then
MsgBox "No es un correo electrónico valido."
Else
MsgBox "Correo electrónico valido."
End If
End Sub

Descripcion

En el ejemplo adjunto se muestra de manera didáctica la secuencia de la aplicación de la programacion:

Hacemos click en:

Aparecerá:

Si ingresamos correctamente el email:

En caso contrario:

Se adjunta ejemplo:

Validar el ingreso de un email en un textbox

Elaborado por: Patricia Ubillus