Usuwanie wszystkich znaków po jednym specyficznym.

Witam forumowiczów. Projektuję pewną aplikację w języku VB.NET związaną z wysyłaniem E-Maili.
Mam dwa textboxy: Textbox1 i Textbox2. Chciałbym aby po tym jak użytkownik wpisze do Textbox1 pierwszą część E-Maila (np. example@) to po znaku "@", nie mógł on wpisać więcej tekstu (domeny E-Maila) i aby zaznaczył się Textbox2, gdzie takową mógłby wpisać.
Tutaj macie zdjęcie, jak ma wyglądać efekt końcowy.