把text里的文本截取到list1和list2。

split函数，你值得拥有

1.学习如何将文本打开， 逐行读取内容
2.学习 Split 函数
CBM666 VB编程示例教材 小部份的截图样品访问链接
http://xiangce.baidu.com/picture/album/list/47a5fb2903bdcedd76f9915fc59608d858e99a0a?isscore=1#isScore

之前小的个小示例
'动态加载药品名
Dim i As Integer
i = 0
Open App.Path & "\test.txt" For Input As #1
While Not EOF(1)
ReDim Preserve MyMedicine.mName(i)
ReDim Preserve MyMedicine.mType(i)
ReDim Preserve MyMedicine.mPrice(i)
ReDim Preserve MyMedicine.mCount(i)
'################################################
'方法一，文本之间得用“,”作为分隔符才可以用这种方法
'################################################
Input #1, MyMedicine.mName(i), MyMedicine.mType(i), MyMedicine.mPrice(i), MyMedicine.mCount(i)
i = i + 1
Wend
Close
'显示药品名到listbox
For i = 0 To UBound(MyMedicine.mName)
List1.AddItem MyMedicine.mName(i)
Next

来自这里

上面两个代码 可以说已经替你完成80%了 自己动脑动手吧

Private Sub Command2_Click()
Dim temS, ntxt As String
Dim sa() As String
Dim sb() As String
Text3.Text = ""
CommonDialog1.Filter = "文本文档 (*.txt)|*.txt|所有文件 (*.*)|*.*"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
List1.Clear
List2.Clear
List3.Clear
Label6.Caption = "成功导入文件" & CommonDialog1.FileTitle
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, temS
If InStr(temS, ",") Then
Text3.Text = Text3.Text + temS + Chr(13) + Chr(10) '回车，换行
End If
Loop
Close #1
If Right(Text3.Text, 2) = vbCrLf Then Text3.Text = Left(Text3.Text, Len(Text3.Text) - 2)
ntxt = Text3.Text
sa = Split(ntxt, vbNewLine)
For i = 0 To UBound(sa)
ReDim sb(2)
sb = Split(sa(i), ",")
List1.AddItem sb(0)
List2.AddItem sb(1)
List3.AddItem i + 1
Next i
End Sub

我遇到一个新麻烦，导出txt的时候，怎么把编码转换成utf-8格式，默认好像是ansi。