Sub ValidarEmail
   dim TheForm, email, j, arroba, punto, x
   set TheForm = document.Regemail
   email = rtrim(TheForm.text1.value)
   punto = false
   arroba = false
   dominio = false
   If len(email) = 0 then
      MsgBox "Debe ingresar un email", 64, "Atencion"
   Else
      x = Instr(1, email, "@")
      If x > 0 And x <> 1 And x <> len(email) then
         arroba = true
      else
         arroba = false
      End if
      j = Instr(1, email, ".")
      If j > 0 And j <> 1 And j <> len(email) And j <> (x + 1) then
         punto = true
      else
         punto = false
      End if
      If arroba And punto Then
         TheForm.Submit
      else
         MsgBox _
         "Reglas para una direccion de email:" & vbcrlf & vbcrlf & _
         "- Debe tener una @" & vbcrlf & _
         "- La @ no puede ser ni el primer ni el ultimo caracter" & vbcrlf & _
         "- Debe tener al menos un punto '.'" & vbcrlf & _
         "- El punto no puede ser ni el primer ni el ultimo caracter" & vbcrlf & _
         "- El punto no puede ir inmediatamente despues de la @", vbInformation, "Atencion"
      End if
   End if
End Sub