http://www.suggestadoctor.com/doctor...s_kolettis.htm
http://www.suggestadoctor.com/doctor...hammontree.htm
http://www.suggestadoctor.com/doctor...dwin_moody.htm
http://www.suggestadoctor.com/doctor...cis_pirani.htm
http://www.suggestadoctor.com/doctor...ard_bryant.htm


there are more than 1000 links

i need to extract these fields
Dr. Name
Doctor's Hospital
Doctor's Office
Phone Number
Fax Number
Gender
Medical School
Graduation Year

This is Mr.Kyle123's code to extract name, Phone, and address

Public Function GetDrDetails(sUrl As String) As Variant

Static oXml As Object
Dim vData(1 To 3) As String

If oXml Is Nothing Then Set oXml = CreateObject("msxml2.xmlhttp")

With oXml
    .Open "GET", sUrl, False
    .send
    vData(1) = Split(Split(.responsetext, "title>")(1), " -")(0)
    If InStr(1, .responsetext, "Office Phone #") > 0 Then
        vData(2) = Replace(Replace(Split(Split(.responsetext, "Office Phone # : <br />")(1), "<br />")(0), "/", ""), "<b>", "")
    End If
    vData(3) = Split(Split(.responsetext, "Office</b><br />")(1), "<")(0)
End With

GetDrDetails = vData

End Function
i change this code to 


Public Function GetDrDetails(sUrl As String) As Variant

Static oXml As Object
Dim vData(1 To 4) As String

If oXml Is Nothing Then Set oXml = CreateObject("msxml2.xmlhttp")

With oXml
    .Open "GET", sUrl, False
    .send
    vData(1) = Split(Split(.responsetext, "title>")(1), " -")(0)
    If InStr(1, .responsetext, "Office Phone #") > 0 Then
        vData(2) = Replace(Replace(Split(Split(.responsetext, "Office Phone # : <br />")(1), "<br />")(0), "/", ""), "<b>", "")
    End If
    vData(3) = Split(Split(.responsetext, "Office</b><br />")(1), "<")(0)
    vData(4) = Split(Split(.responsetext, "Gender</b><br />")(1), "<")(0)
End With

GetDrDetails = vData

End Function
but i did not get the answer
any one can correct it to help me