打开一文本文件并放入textBox中

Dim FileNumber
Dim Lstr as String
FileNumber = FreeFile   ' 取得未使用的档案代码。
Open "TEST" For input As #FileNumber
Do While Not EOF(FileNumber)
   Line Input #FileNumber, Lstr
   Text1.Text = Text1.Text + Lstr + Chr(13)+Chr(10)
Loop
Close #FileNumber