Funcion que Permitira la Verificacion del Formato de un Email en un control TextBox.


Public Function Valida_Correo(Control_Texto As TextBox) As Boolean
Dim Cadena As String
Dim Cadena1 As String
Dim Cadena2 As String
Valida_Correo = True

    If Trim(Control_Texto.Text) <> "" Then 'Formato OK
        Cadena = InStr(1, Trim(Control_Texto.Text), "@")
        If Cadena > 0 Then
            If Cadena = 1 Then 'Solo es el arroba
                MsgBox "El Formato del Email es Erroneo", vbInformation, "Error de Formato de Correo"
                Control_Texto.SetFocus
                Valida_Correo = False
            Else
                Cadena1 = InStr(Cadena + 1, Trim(Control_Texto.Text), ".") 'Verifica el punto
                 If Val(Cadena1) < Len(Trim(Control_Texto)) Then
                     If Val(Cadena + 1) < Cadena1 Then
                         If Cadena1 = 0 Then
                             MsgBox "El Formato del Email es Erroneo", vbInformation, "Error de Formato de Correo"
                             Control_Texto.SetFocus
                             Valida_Correo = False
                        End If
                    Else
                         MsgBox "El Formato del Email es Erroneo", vbInformation, "Error de Formato de Correo"
                         Control_Texto.SetFocus
                         Valida_Correo = False
                    End If
                Else
                    MsgBox "El Formato del Email es Erroneo", vbInformation, "Error de Formato de Correo"
                    Control_Texto.SetFocus
                    Valida_Correo = False
                End If
            End If
        Else
            MsgBox "El Formato del Email es Erroneo", vbInformation, "Error de Formato de Correo"
            Control_Texto.SetFocus
            Valida_Correo = False
        End If
    End If
End Function