Dim Str() As String '声明一个字符型数组
    Dim I As Long '声明一个长整型变量，下面读文件用到
   
    Open Text1.Text For Input As #1 '打开文件
   
    Do While Not EOF(1) '判断是否到了文件结尾
        ReDim Preserve Str(I) '给数组分配空间,
        
        Line Input #1, Str(I) '读取一行放入数组变量中
        
        I = I + 1 '判断读了多少行，再给数组分配空间
  MsgBox Str(I)　
　 Loop '循环
   
    Close #1 '关闭文件

－－－－－－－－－－－－－－－－－－
红色行下标越界！　求老师回答下吧　不知道哪里错了。

[ 本帖最后由 豆豆17373 于 2012-11-3 15:09 编辑 ]

VB中读取文本内容用MsgBox显示　

dim strLine as string
open Text1.text for input as #1

while not eof(1)

line input #1,strLine

msgbox strLine '显示每行

wend

close #1

方二：
Open Text1.Text For Input As #1

While Not EOF(1)

   Line Input #1, strLine

 　MsgBox  strLine  
Wend

Close #1