关于textbox内容读取的有关问题

关于textbox内容读取的问题
怎样才能读取textbox每行的数据??   我想在textbox每行打进一个网址   然后用浏览器同时打开  

搞了好长时间   也找不到一点头绪   我新学vb6的   高手帮下忙  
麻烦写下相关的代码
谢谢谢谢!!!


------解决方案--------------------
dim a() as string
dim i as long

a = split(textbox1.text,vbcrlf)
for i=lbound(a) to ubound(a)
打开URL a(i)
next
------解决方案--------------------
按照 换行符 分割数据,循环读取
具体同楼上 ^_^