Public Function DiBaFonds(Isin As String, Boerse As String) As Double
Dim KursString As String
Dim LastKursString As String
Dim TextPos As Double
Dim XML
On Error GoTo Fehler
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
XML.Open "GET", "https://wertpapiere.ing-diba.de/DE/Showpage.aspx?pageID=33&Isin=" & Isin, False
XML.send
KursString = XML.responsetext
If Boerse = "KAG" Then TextPos = InStr(KursString, "Fondsgesellschaft</td>") + 69
If Boerse = "BER" Then TextPos = InStr(KursString, "Berlin</td><td class=") + 32
If Boerse = "DUS" Then TextPos = InStr(KursString, "sseldorf</td><td class=") + 32
If Boerse = "ETR" Then TextPos = InStr(KursString, "Xetra</td><td class=") + 32
If Boerse = "FRA" Then TextPos = InStr(KursString, "Frankfurt</td><td class=") + 32
If Boerse = "HAM" Then TextPos = InStr(KursString, "Hamburg</td><td class=") + 32
If Boerse = "MUN" Then TextPos = InStr(KursString, "nchen</td><td class=") + 32
If Boerse = "STG" Then TextPos = InStr(KursString, "Stuttgart</td><td class=") + 32
If Boerse = "DIR" Then TextPos = InStr(KursString, "Direkthandel</td><td class=") + 32
KursString = Mid(KursString, TextPos, 1000)
If Boerse <> "KAG" Then
    TextPos = InStr(KursString, "last_formatted")
    If TextPos = 0 Then
        TextPos = InStr(KursString, "right") + 7
        KursString = Mid(KursString, TextPos, 100)
    Else: KursString = Mid(KursString, TextPos + 16, 100)
    End If
End If
    TextPos = InStr(KursString, "<")
    KursString = Left(KursString, TextPos - 1)
    DiBaFonds = CDbl(KursString)
    Set XML = Nothing
Exit Function
Fehler:
    DiBaFonds = 0
    Set XML = Nothing
End Function