RE:Validar direccion de correo
Hola,
tengo una funcion para esto:
Public Function valido_correo(correo As String) As Boolean
Dim i As Integer
Dim ultimo As Integer
Dim veces As Integer
ultimo = Len(correo)
For i = 1 To Len(correo)
If Mid(correo, i, 1) = "@" Then
If i = 1 Or i = ultimo Then
valido_correo = False 'esta en primer lugar o ultimo
Exit Function
Else
veces = veces + 1 'cuenta las veces que esta
End If
End If
Next i
If veces = 1 Then
valido_correo = True
Else
valido_correo = False
End If
End Function
y lo validas asi:
Private Sub Command1_Click()
If valido_correo(Text1) = False Then
MsgBox "error"
End If
End Sub
suerte