Pulling data from websites such as amazon using Excel VBA

Not working obviously but might as well post it for you guys to see what's wrong:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("Search").Row And _
Target.Column = Range("Search").Column Then
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "www.amazon.com/s/?field-keywords=" & Range("Search").Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim sDD As String
sDD = Trim(Doc.getElementsByTagName("DIV")(1).getElementsByTagName("DIV")(2).getElementsByTagName("DIV")(0).getElementsByTagName("DIV")(0).getElementsByTagName("DIV")(1).getElementsByTagName("DIV")(3).getElementsByTagName("DIV")(0).getElementsByTagName("DIV")(2).getElementsByTagName("H3")(0).getElementsByTagName("A")(0).innerText)
MsgBox sDD
End If
End Sub

Did you ever find a solution to the amazon thing?