In einer Userform habe ich u.a. zwei txtbox für Name und Vorname. In einer dritten txtbox werden diese beiden zu einer Emailadresse umgewandelt, also steht in txtbox1 "Max" und in txtbox2 "Mustermann" so steht in txtbox3 "Max.Mustermann@xyz.com". Bevor das Klicken auf ein commandbutton die Einträge in ein Formular überträgt, möchte ich prüfen, ob alle Angaben korrekt sind, daher möchte ich txtbox3 abfragen, ob ein Eintrag wie "___.___@xyz.com" vorhanden ist, sonst soll eine msgbox aufgehen. Mein Problem im unten stehenden Code ist, dass theoretisch ein "@xyz.com" ausreichend wäre, was ich aber nicht möchte.
Vielen Dank für Eure Hilfe im Voraus.
Dim ninebox
If InStr(UserForm1.TextBox3, "@xyz.com") = 0 Then
ninebox = MsgBox("Bitte tragen Sie eine Email-Adresse ein.", vbExclamation + vbOKOnly)
If ninebox = vbOK Then
UserForm1.TextBox3.SetFocus
Exit Sub
End If
End If