去除text1中的带有某字符@的特定一行 VB

Question

循环text1所有行数
去除text1中的带有某字符@的特定一行  VB代码
text1属性的是多行模式！
下面是text1内容111111111111
2222222222
33333333333
55555555555
666666666666
888888888
@
 
还有就是list1显示text1的内容，每行内容都一样～！急求以上代码，谢谢各位大侠了～！！

Answer 1

dim a$(),Result$
dim i&
a=split(Text1.Text,VbCrlf)
For i=Lbound(a) To Ubound(a)
    If Instr(a(i),"@")=0 Then
       Result=Result & a(i) & VbCrlf
       List1.AddItem a(i)
    End if
Next i
Text1.Text=Result