run time error

[klatlap]

trying to learn something new, am follow some stuff on your tube but getting a run time error 13, not sure what.

Sub BrowseToSite()
    Dim IE As New SHDocVw.InternetExplorer
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim HTMLInput As MSHTML.IHTMLElement
    Dim HTMLAs As MSHTML.HTMLElementCollection
    Dim HTMLA As MSHTML.IHTMLElement
    
    IE.Visible = True
    IE.Navigate "x-rates.com"
    Do While IE.ReadyState <> READYSTATE_COMPLETE
    Loop
    
    Set HTMLDoc = IE.Document
    
    Set HTMLInput = HTMLDoc.getElementById("amount")
    HTMLInput.Value = 5
    
    Set HTMLInput = HTMLDoc.getElementById("from")
    HTMLInput.Value = "GBP"
    
    Set HTMLInput = HTMLDoc.getElementById("to")
    HTMLInput.Value = "USD"
    
    Set HTMLAs = HTMLDoc.getElementsByTagName("A")
    
    For Each HTMLA In HTMLAs
    Debug.Print HTMLA.getAttribute("classname"), HTMLA.getAttribute("href"), HTMLA.getAttribute("rel")
    Next HTMLA
    
    
    End Sub

 

[Domenic]

Try deldaring HTMLAs as follows...

Dim HTMLAs As MSHTML.IHTMLElementCollection

Hope this helps!

 

[klatlap]

oh now i see, i am missing an "I" , thank you, cheers.