Public Function GetKurs(Isin As String, GetName As String, GetToken As String) As Double
Dim Kurs As String
Dim XML As Object
Const Adresse = "https://www.gettex.de/gettex-die-guenstige-und-schnelle-boerse/isin/"

On Error GoTo Fehler
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
XML.Open "GET", Adresse & Isin & "/name/" & GetName & "/?token=" & GetToken, False
XML.send
Kurs = XML.responseText
    Kurs = Split(Kurs, "LETZTER KURS")(1)
    Kurs = Split(Kurs, "span>")(2)
    Kurs = Left(Kurs, InStr(Kurs, "&") - 1)
    Kurs = Replace(Kurs, Chr(32), "")
    Kurs = Replace(Kurs, Chr(10), "")
GetKurs = CDbl(Kurs)
Set XML = Nothing
Exit Function
Fehler:
    GetKurs = 0
    Set XML = Nothing
End Function

'id="real_tts-159633102_bid_1"
Public Function GetBid(Isin As String, GetName As String, GetToken As String) As Double
Dim Kurs As String
Dim XML As Object
Const Adresse = "https://www.gettex.de/gettex-die-guenstige-und-schnelle-boerse/isin/"

On Error GoTo Fehler
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
XML.Open "GET", Adresse & Isin & "/name/" & GetName & "/?token=" & GetToken, False
XML.send
Kurs = XML.responseText
    Kurs = Split(Kurs, "bid"">")(1)
    Kurs = Left(Kurs, InStr(Kurs, "<") - 1)
    Kurs = Replace(Kurs, Chr(32), "")
    Kurs = Replace(Kurs, Chr(10), "")
GetBid = CDbl(Kurs)
Set XML = Nothing
Exit Function
Fehler:
    GetBid = 0
    Set XML = Nothing
End Function

Public Function GetAsk(Isin As String, GetName As String, GetToken As String) As Double
Dim Kurs As String
Dim XML As Object
Const Adresse = "https://www.gettex.de/gettex-die-guenstige-und-schnelle-boerse/isin/"

On Error GoTo Fehler
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
XML.Open "GET", Adresse & Isin & "/name/" & GetName & "/?token=" & GetToken, False
XML.send
Kurs = XML.responseText
    Kurs = Split(Kurs, "ask"">")(1)
    Kurs = Left(Kurs, InStr(Kurs, "<") - 1)
    Kurs = Replace(Kurs, Chr(32), "")
    Kurs = Replace(Kurs, Chr(10), "")
GetAsk = CDbl(Kurs)
Set XML = Nothing
Exit Function
Fehler:
    GetAsk = 0
    Set XML = Nothing
End Function