Werte von Websites nach Excel exportieren die sich nicht in einer Tabelle befinden?

Sub GetImplicitVolatility()
    On Error GoTo errhandler
    Set objIE = CreateObject("InternetExplorer.Application")  
    
    Set regex = CreateObject("vbscript.regexp")  
    regex.IgnoreCase = True
    regex.Pattern = "Implizite Volatilität.*?([\d\,]+) %"  
    
    With objIE
        .Visible = False
        .Navigate "https://www.onvista.de/derivate/optionsscheine/JP-MORGAN-CALL-DAX-13000-0-01-17-12-21-DE000JM4Q0Z5"  
        While .Busy
            DoEvents
        Wend
        pause 1
        Set matches = regex.Execute(.Document.Body.innerText)
        If matches.Count > 0 Then
            MsgBox matches(0).submatches(0)
        Else
            Err.Raise 99, "GetImplicitVolatility", "Wert nicht gefunden."  
        End If
        .Quit
    End With
    Exit Sub
errhandler:
    MsgBox "ERROR: " + Err.Description, vbExclamation  
    objIE.Quit
End Sub


Sub pause(t As Integer)
    Start = Timer
    Do While Timer < Start + t
        DoEvents
    Loop
End Sub

Sub GetImplicitVolatility()
	Set oDom = CreateObject("htmlfile")  
	Set objhttp = CreateObject("Microsoft.XMLHTTP")  
	With objhttp
	    .Open "GET", "https://www.onvista.de/derivate/optionsscheine/JP-MORGAN-CALL-DAX-13000-0-01-17-12-21-DE000JM4Q0Z5", False  
	    .send
	    oDom.write .responseText
	End With
	set node = Nothing
	For Each span In oDom.getElementsByTagName("span")  
		If InStr(1,span.innerText,"Implizite Volatilität",1) > 0 Then  
			Set node = span
			Exit For
		End If
	Next
	If Not node Is Nothing Then
		MsgBox node.nextSibling.innerText
	End If
	oDom.close
End Sub

Range("D7").Value = node.nextSibling.innerText