per VBA ein Feld aus einer Internetseite auslesen

Sub ETH()
Dim browser As Object
Dim url As String
Dim knotenWurzel As Object
Dim splitArray() As String
Dim spielZeit As String
url = "https://www.investing.com/crypto/ethereum/eth-usd-chart"
'Internet Explorer initialisieren, Sichtbarkeit festlegen,
'URL aufrufen und warten bis Seite vollständig geladen wurde
Set browser = CreateObject("internetexplorer.application")
browser.Visible = False
browser.Navigate url
Do Until browser.ReadyState = 4: DoEvents: Loop
'Zeitstempel aus dem YouTubePlayer auslesen
'Das entsprechende div-Tag verwendet als einziges die Klasse "ytp-progress-bar "
'Dann folgen einige Attribute, von denen wir den Wert von aria-valuetext brauchen
'

Set knotenWurzel = browser.document.getElementsByClassName("arial_26 inlineblock pid-1058142- _
last")
If Not knotenWurzel Is Nothing Then
'Wurde das div-Tag gefunden, direkt das Attribut mit Zeitstempel
'über Split() in seine Bestandteile zerlegen
'Leerzeichen = Trennzeichen (Delimeter)
    splitArray = Split(knotenWurzel.getAttribute("aria-valuetext"))
'Die Spielzeit des Videos steht nun im letzten Element des Arrays
   spielZeit = splitArray(UBound(splitArray))
'Else
'spielZeit = "Keine Zeit ausgelesen"
End If
'Aufräumen
browser.Quit
Set browser = Nothing
Set knotenWurzel = Nothing
'Spielzeit ausgeben
MsgBox spielZeit
End Sub




Die Funktion Split ist natürlich falsch. Im knotenWurzel ist der Preis drin, leider habe keine Idee, wie ich den ins Msgbox rüberbringe.

Danke im Voraus für Eure Hilfe!