vb怎么找出指定的链接

vb如何找出指定的链接？
VB学习中遇到一些困难，我用VB获得一个网站的源文件，显示在文本框Text1中，这个源文件包含了一些链接，比如
href="http://www.sina.com.cn/……"
Href="http://www.baidu.com/……"
……
其中只有一个链接是以“http://blog.”　开头的，如何用VB在Text1.Text中找出这个“http://blog.”开头的链接，并在文本框Text2中显示出来。


[解决办法]
解析HTML之后枚举所有<a>，判断href。
[解决办法]

VB code

dim a() as stringdim i as longa = split(text1,vbcrlf)for i=0 to ubound(a)    if LCase(a(i)) like "http://blog.*" then        text2 = a(i)        exit for    end ifnext
[解决办法]
VB code
    Dim p As Long, q As Long    p = InStr(Text1.Text, "http://blog.")    If p > 0 Then        q = InStr(p + 7, Text1.Text, "/")        Text2.Text = Mid(Text1.Text, p, q - p + 1)    End If