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

Question

VB 如何分割导入的文本内容？如导入的TXT文本格式为：
sefrwe----123456
sdfehhdfg----123456
sdsdd----123456
sgrhhrr----654321
reyhjhr----654321
wethhr----123456
erhyrh----987654导入VB的LISTBOX后，如何自动分割文本内容，将“----”前的内容放到TEXT1里，“----”后的内容放到TEXT2里。
不知要怎么操作，请告诉一下，谢谢了~

Answer 1

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

Answer 2

兄弟，谢谢，我试了一下，你这个是将所有的“----”前和后分别并一起放到TEXT1和TEXT2里了。
我想要的是每一项分别放到TEXT1和TEXT2里
例如我选择第一项时。TEXT1=sefrwe，TEXT2=123456
这样子要如何修改呢？