ExcelのVBAで、InternetExplorerで現在開いているWebサイトの、

XMLHTTPオブジェクトを使った簡単な方法なら、

http://officetanaka.net/other/extra/tips02.htm

こちらの方法を利用して、こんな感じで簡単にできます。

Sub Sample()
    Dim Http, buf As String
    Dim stP As Long
    Dim edP As Long
    
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "GET", "http://q.hatena.ne.jp/1279613364", False
    Http.Send
    buf = StrConv(Http.ResponseBody, vbUnicode)
    
    stP = InStr(1, buf, "<a href=") + 9
    edP = InStr(stP, buf, ">") - 1
    
    MsgBox Mid(buf, stP, edP - stP)
    
    Set Http = Nothing
End Sub