用VB实现这样一段功能：每隔一定时间采进来一行数据，并且每次采集的数据可以自动换行，请问如何实现？

Private Sub Form_Load()
Dim txt As String
Open "采数据的源文件" For Input As 1
End Sub
Private Sub Timer1_Timer()
Line Input #1, txt
Text1.Text = Text1.Text + txt + vbCrLf
End Sub
注意：事先设定Text1.MultiLine = True 和 Timer1.Interval = 时间间隔

用程序实现。。。