Excel 2000: how to run a list of VINs through Carfax?

Sub foobar()
Dim ie As Object, cl As Range
Dim i As Long, j As Long, tmpStr As String
Dim strArr(0 To 1) As String

Set ie = CreateObject("InternetExplorer.Application")
On Error GoTo errHandler

For Each cl In Range("e2:e200")
    With ie
        .navigate "http://www.carfax.com/cfm/check_order.cfm?vin=" & _
            cl.Value
        Do While .busy: DoEvents: Loop
        Do While .ReadyState <> 4: DoEvents: Loop
        Do While Not CBool(InStrB(1, .document.URL, _
            "PopUpStatus"))
            DoEvents
        Loop
        Do While .ReadyState <> 4: DoEvents: Loop
        Let tmpStr = .document.body.innerText
        
        Let i = InStr(1, tmpStr, "Year/Make/Model:") + 17
        Let j = InStr(1, tmpStr, "Body Style:") - 3
        strArr(0) = Trim$(Mid$(tmpStr, i, j - i))
        
        Let i = InStr(1, tmpStr, "Engine Type:") + 12
        Let j = InStr(1, tmpStr, "Manufactured In:") - 3
        strArr(1) = Trim$(Mid$(tmpStr, i, j - i))
    
    End With
    cl.Offset(, 1).Resize(, 2).Value = strArr
Next

errHandler:
ie.Quit: Set ie = Nothing
End Sub