VBA Error - Run Time Error 9 - Subscript out if range

Hi,

I'm getting a Run Time Error 9 - Subscript out if range for the following code:

Sub Demo()
Sheet7.Range("E2").ClearContents
Dim Val As String
With CreateObject("Msxml2.ServerXMLHTTP.6.0")
    .Open "GET", Sheet7.Range("D2"), False
    .setRequestHeader "DNT", "1"
    .Send
    Val = Split(Split(.responseText, "'stats_chart_table_key'>")(1), "<")(0)
    Sheet7.Range("E2").Value = Val
End With
End Sub

Any tips?

Thank you.