開啟一文字檔並放入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