13518219792
思路：
在昌江等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站设计制作、成都网站设计 网站设计制作按需定制,公司网站建设,企业网站建设,品牌网站制作,营销型网站,成都外贸网站建设,昌江网站建设费用合理。
1，使用ListBox1控件来存放搜索到的文件名，然后ListBox1.SelectedItem就可以返回选中项的文本；
2，利用获得的选中项文本（即文件与路径），使用打开文本文件的方法，读取内容显示在文本框里。
一，出错后继续运行程序，可以使用On Error Resume Next.
二，要能点了又可以使用，就要看代码了，应该是你的代码问题
你在代码后面都fileclose(1)了，前面又没有open当然会报错，你把open放到do while前面，就OK了呀。
dim str1 ,str2 as string
dim n as integer
str2=inputbox("请输入要查找的字符："）
for n=1 to len(textbox1.text)
str1=mid(textbox1.text,n,1)
if str2=str1 then
msgbox("找到啦！")
exit for
end if
next
if n=len(textbox1.text)+1 then
msgbox("没有你要找的字符！")
end if
VB.net里有Split函数吗？
我的思路是，先寻找http://字符，然后向后寻找第一个在链接中肯定不会出现的字符，比如 ' " ; , 等等，截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",发现在第19个字符处（一定要注意，VB.net第一个字符的索引值下标为0，所以h是第20个字母，搜索所得到的结果就是19）
然后从19向后搜索异常字符（ " ' ; , ）之类，得到第二个搜索结果，将这两个结果中间的部分截取就是链接啦
string.LastIndexOf(搜索的字符串, 位置)
位置 = 已经选中的字符串在整个文本中的Index序号
