[SOLVED] Macro that grabs data from table

I am trying to grab the Item specific data (color, model, mileage, year) from a group of links pasted in the A column (example http://www.ebay.com/itm/Harley-David...m=181746283957), and place the data in subsequent columns. This is what I have so far, but I get an error box "438: Object doesn't support this property or method". I have no idea what this means and what is wrong with my code?? Thanks!!

Sub LinkGrab()
Dim Ie As New InternetExplorer
Dim WebURL
Dim Docx As HTMLDocument
Dim Make
Dim Model
Dim Mileage
Dim vin
Dim Year
Dim Esize
Dim Color

Ie.Visible = False

For RcdNum = 2 To ThisWorkbook.Worksheets(1).Range(ThisRange).End(xlUp).Row

WebURL = ThisWorkbook.Worksheets(1).Range("A" & RcdNum)
Ie.Navigate2 WebURL
Do Until Ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set Docx = Ie.document
Set Container = Docx.getElementsById("readMoreDesc")
Info = Container.Children
If Info.className = "attrLabels" Then
    If Info.attrLabels = "VIN (Vehicle Identification Number)" Then
      vin = Info.attrLabels.getElementsByTagName("span")(0).innerText
    ElseIf Info.attrLabels = "Year" Then
      Year = Info.attrLabels.getElementsByTagName("span")(0).innerText
    ElseIf Info.attrLabels = "Make" Then
      Make = Info.attrLabels.getElementsByTagName("span")(0).innerText
    ElseIf Info.attrLabels = "Engine Size (cc)" Then
      Esize = Info.attrLabels.getElementsByTagName("span")(0).innerText
    ElseIf Info.attrLabels = "Model" Then
      Model = Info.attrLabels.getElementsByTagName("span")(0).innerText
    ElseIf Info.attrLabels = "Mileage" Then
      Mileage = Info.attrLabels.getElementsByTagName("span")(0).innerText
    ElseIf Info.attrLabels = "Color" Then
      Color = Info.attrLabels.getElementsByTagName("span")(0).innerText
    End If
End If
    
      
     
    

ThisWorkbook.Worksheets(1).Range("B" & RcdNum) = Year
ThisWorkbook.Worksheets(1).Range("C" & RcdNum) = Color
ThisWorkbook.Worksheets(1).Range("D" & RcdNum) = Make
ThisWorkbook.Worksheets(1).Range("E" & RcdNum) = Model
ThisWorkbook.Worksheets(1).Range("F" & RcdNum) = Mileage
ThisWorkbook.Worksheets(1).Range("G" & RcdNum) = vin
ThisWorkbook.Worksheets(1).Range("H" & RcdNum) = Esize
Next

End Sub