请问如何分析获取网页的html连接

Private Sub Command1_Click()
Dim codehtml As VariantIf Inet1.url = "" And Text2.Text = "" Then
warning = MsgBox("请输入地址", 0, "注意")
Exit Sub
Else
codehtml = Inet1.OpenURL(Text2.Text)          '抓取网页
Text1.Text = codehtml                   '抓取网页后的代码
End If
End Sub
通过上面的代码我已经可以把由我指定的url的html显示在text1里但是我要如何提取里面的href链接呢？Public Function IsUrl(ByVal strTmp As String) As Boolean
    On Error GoTo Z
    Dim objIntPattern
    IsUrl = False
    Set objIntPattern = New RegExp
    objIntPattern.Pattern =  "^(http://|https://){0,1}[A-Za-z0-9][A-Za-z0-9\-\.]+[A-Za-z0-9]\.[A-Za-z]{2,}[\43-\176]*$"
    objIntPattern.Global = True 
    IsUrl = objIntPattern.Test(strTmp) 
    Set objIntPattern = Nothing 
Z: 
End Function 
这段正则应该可以实现，但是我不知道如何把提取完的内容显示在另外的text里请高手指点谢谢