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 string
dim i as long
a = split(text1,vbcrlf)
for i=0 to ubound(a)
if LCase(a(i)) like "http://blog.*" then
text2 = a(i)
exit for
end if
next

---

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

---

好久没有用VB了。。。楼上的代码都看不懂。。。汗。。。。

---

感谢各位的关注。3楼的代码测试通过。谢谢！