关于WebBrowser问题

Question

我想写一个东西 需要读取一个TXT文件里的网页地址，每一行有一个地址，共10行
分别读取，并自动把WebBrowser1.Navigate 属性修改成 TXT文件里的网页地址 
这样作代码改怎么写? 
麻烦大家写详细一点... 
谢谢

Answer 1

sub form_load()
open "文件路径" for input as #1
end subsub command1_click()
dim str1 as string 
line input #1,str1
webbrowser1.navigate str1
end subsub form_unload ()
close #1
end sub