VB 如何分割导入的文本内容？
VB 如何分割导入的文本内容？

如导入的TXT文本格式为：
sefrwe----123456
sdfehhdfg----123456
sdsdd----123456
sgrhhrr----654321
reyhjhr----654321
wethhr----123456
erhyrh----987654

导入VB的LISTBOX后，如何自动分割文本内容，将“----”前的内容放到TEXT1里，“----”后的内容放到TEXT2里。
不知要怎么操作，请告诉一下，谢谢了~

[解决办法]
text1=""
text2=""
for i=0 to list1.listcount-1
s=list1.list(i)
p=instr(1,s,"-")
if p>0 then
text1=text1 & left(s,p-1) & vbcrlf
text2=text2 & mid(s,p+3) & vbcrlf
end if
next