Dim IE As Object
Dim dd As Variant


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "https://www.top40.nl/top40/2017/week-14"



Do While IE.Busy
    DoEvents
Loop


dd = IE.Document.getElementsByClassName("top40")(0).InnerText

Set IE = Nothing
Set objElement = Nothing
Set objCollection = Nothing

Dim Element As IHTMLElement
Dim i As integer
Dim artist as String
Dim position As Integer
For i=0 To  IE.Document.getElementsByClassName("top40")(0).Children.Count
       position = IE.Document.getElementsByClassName("top40")(0).Childnodes(i).childnodes(0).innertext
       artist = IE.Document.getElementsByClassName("top40")(0).Childnodes(i).childnodes(2).Childnodes(3).childnodes(1).Childnodes(1).innertext
Next i