Замена текста до определенного символа?

Question

[amadon]

Нужно чтобы замена работала только до определённого места в тексте, например до символа @

Dim filter As String
        filter = TextBox1.Text.Replace("A", "").Replace("a", "")

        TextBox2.Text = filter

Answer 1

[Владимир Коротенко]

Split
Substring
Как то так

Answer 2

[Sergey В.]

Разделите строку на две части.
Сделайте замену в первой части.
Соедините строки обратно.