Для забавы, вот более старый школьный подход, который все еще работает в .Net (и, как и ответ Мэтта, это предполагает, что вы знаете, что это действительный адрес электронной почты) ...
strResult = Mid(varEmail, 1, (InStr(varEmail, "@") - 1))
Если вы не уверены, что у вас есть действующее электронное письмо, сделайте это в попытке проверки (оно выдаст исключение, если электронное письмо недействительно) ...
Dim objMail As New System.Net.Mail.MailAddress(varEmail)
strResult = objMail.User