tien essai ça ;)

Public Function verifier_mail(ByRef a AsString) AsBoolean

        Dim var AsBoolean = False

        Dim tab AsChar() = NewChar() {"/", "*", "+", "&"}

        If a.IndexOf("@") = -1 Or a.IndexOf(".") = -1 Or a.IndexOf("@") <> a.LastIndexOf("@") Or a.LastIndexOf(".") - a.LastIndexOf("@") < 2 Or a.Split(tab).Length > 1 Or a.Length - 1 = a.IndexOf(".") Then

            var = True

        End If

        If var = TrueThen

            MsgBox("email incorrecte")

        End If

        Return var

Ben mon vieux !...

Alors (avec Like) :

Private Sub Command1_Click()
  toto = "jmmarques@titi.fr"
  MsgBox IIf(toto Like ("*@*.*"), "bon", "pas bon")
  toto = "jmmarquestiti.fr"
  MsgBox IIf(toto Like ("*@*.*"), "bon", "pas bon")
  toto = "jmmarques@titifr"
  MsgBox IIf(toto Like ("*@*.*"), "bon", "pas bon")
End Sub