Exchange rate aus Website in Excel holen

Hallo
Kann mir jemand helfen, ich bekomme eine Fehlermeldung: Object Variable or With Block Variable not set.
Ich möchte mit dem macro den Wechselkurs aus der Website holen. Das VIdeo dazu: https://www.youtube.com/watch?v=IOzHacoP-u4
Vielen Dank.

Sub Button14_Click()
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant



website = "https://finance.yahoo.com/quote/EURUSD%3DX?p=EURUSD%3DX"
'website = "https://finance.yahoo.com/quote/005930.KS?p=005930.Ks&.tsrc=fin-srch"

Set request = CreateObject("MSXML2.XMLHTTP")

request.Open "GET", website, False

request.setRequestHeader "IF-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"

request.send

response = StrConv(request.responseBody, vbUnicode)

Set html = New HTMLDocument

html.body.innerHTML = response

'price = html.getElementsByClassName("e3b14781 e983cf79")(0).innerText

Set price = html.getElementsByClassName("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)")(0).innerText

If Not price Is Nothing Then
MsgBox (price(0).innerText)
End If

End Sub


PS: Die libraries habe ich eingebunden (Microsoft XML, v6,0 und MS HTML object library