Extract a href from html

[Sharid]

I need to extract href from some html, how do i do this?

this is the href= 'http://www.loungelizard.com

I have html below

<div class='c'></div>



		<div class='fl' style='width: 50%;'><a href='/'><img  alt='Design Firm' class='fl' style='border: 0px; margin: 12px 0px 27px 20px;' src='/images/designfirms-logo-blue.png' /></a></div>



		<div class='fl' style='width: 50%; margin-top: 20px;'>



		<div class='fr'><a *******="insert_click('banner', '457')" rel='nw' href='http://www.loungelizard.com'><img alt="" style='border: 1px solid #CCCCCC;' src='/images/advertisers/457.jpg' /></a></div>



		</div>



		<div class='c'></div>

Thanks

 

[Sharid]

This code see to work in extracting the item from class. The problem is it is not extracting the right class. My html is limited as is my VBA so I can't do much.

Private Sub CommandButton3_Click()

 Dim http As New XMLHTTP60, html As New HTMLDocument
   Dim source As Object

    With http
       .Open "GET", "http://www.designfirms.org/company/11829/liberty-grove-graphics-llc/", False
        .send
        html.body.innerHTML = .responseText
   End With
    For Each source In html.getElementsByClassName("fr")
       x = x + 1: Cells(x, 1) = source.getAttribute("href")
        Cells(x, 2) = source.getAttribute("")
    Next source
   
End Sub

As far as I understand the class is "fr"

<div class='fr'><a *******="insert_click('banner', '1652')" rel='nw' href='http://www.freelancer.com/affiliates/designfirms/'

However it extracts this

/images/icon-social.png

from this

<img alt="We're Social!" class='fr' src='/images/icon-social.png' style='border: 0px;' usemap='#social'>

Thanks for having a look