vb读取txt问题请高手指教。

目的是按一下按纽，VB就随机读取TXT文件里一行并写入表格，该怎么修改
Private Sub Command1_Click()
WebBrowser1.Navigate "站点"
Do
If Not WebBrowser1.Busy Then Exit Do
DoEvents
Loop
Dim text_Obj, input_Obj
Set text_Obj = Me.WebBrowser1.Document.GetElementsByName("firstname")
Set input_Obj = Me.WebBrowser1.Document.GetElementsByName("secondname")
Open App.Path & "\aa.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, Textline
text_Obj(0).Value = Textline
input_Obj(0).Value = "ghjhgjhgjghj"
Loop
'''''要想提交表单，删除下面代码前面的注释符
Dim form_Obj
Set form_Obj = Me.WebBrowser1.Document.GetElementsByTagName("form")
End Sub

高分问题：关于VB中的TreeView控件读取问题,请VB的高手指教! VB问题？请高手指教？ VB读取TXT文件的一个问题 VB读取TXT文件的问题!!! vb中读取TXT的问题 VB中读取TXT文件的问题 VB读取TXT文件 vb 高手请指教 VB 高手请指教？ VB读取TXT文件里字符的问题