如何一行行的读取txt文件中的数据

Question

现在有这样一个文本文件：
生活服务热线：96886
造纸印刷包装  359
任氏电脑制版有限公司
Renshi Computer Plate—making Co．，Ltd．
  桂箐路69号24号楼3F(200233)
  F3，BuiIding 24，69 Guiqing Rd．
    6485]839
传真(Fax)：  64851839
E-mai]：[e-mail]
负责人：任国耀
企业性质：港澳台及外商独资
注册资金：350万美元
国别及地区：新加坡
经营范围：  铝管、PVC复合管、标贴、纸
盒、纸箱等印刷版
日奔纸张纸浆有限公司
Shanghai Jp Co．，Ltd．
  虹漕南路]73号(200233)    ‘
  ]73 Hongcao Rd．(S)
    …    …    …  总机6408 9900
  传真(Fax)：  64086677
  负责人：施静
  企业性质：中外合作
  注册资金：48万美元
  国别及地区：  El本
经营范围：  生产加工销售办公，传真，复
印及计算机用纸制品和无碳复写纸
曰广图文制作工作室
Riguang Text&Graphics Design Studio
我要一行行的读取这个文件怎么写啊 能给个思路或者有什么控件函数可以用 谢谢各位了

Answer 1

Private Sub Command1_Click()
    Dim TextLine
    Dim strFileName As String        strFileName = App.Path & "\test.txt"        Open strFileName For Input As #1 ' 打开文件。        Do While Not EOF(1) ' 循环至文件尾。
            Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
            '这里利用TextLine
        Loop        Close #1 ' 关闭文件。
    End WithEnd Sub

Answer 2

   Open "c:\1.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, strA
            Text1.Text = Text1.Text & strA & vbCrLf
        Loop
   Close #1

Answer 3

dim strtxt as string,strall as string
open "C:\a.txt" for input as #1
while not eof(1)
  line input 1, strtxt
  strall = strall & strtxt
wend
closestrall就是你要的东西