RECHERCHE @ ds un txtbox

voila je commence le vb

et en fait j aimerai savoir comment on fait pour verifier que la personne est saisie un @ ds le textbox, pour verifier si el mail semble valide ou pas. Moi j'ai fait ca :

Private Sub txtbox_mail_Change()

' Controle la validité du mail

If InStr(txtbox_mail, "@") Then

Dim vdm

vdm = MsgBox(" le mail est valide", vbOKOnly, "mail valide")

Else

' Message d'erreur critique en cas de mail non valide

Dim mec

mec = MsgBox(" Le mail n'est pas valide", vbCritical, "Erreur")

End If

End Sub

le prob c'est que ca attend pas que la personne est finit ca saisie, ca me donne le message a chaque fois qu'ne personne tape une lettre. Merci d'avance