Скрипт для расчета планируемых дивидендов (VBScript)

Function Dividend(Ticker) As Double

    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    myurl = "https://www.dohod.ru/ik/analytics/dividend/" + StrConv(Ticker, vbLowerCase)
    
    xmlHttp.Open "GET", myurl, False
    xmlHttp.Send
    
    Text = xmlHttp.responseText
    
    Pos = InStr(1, Text, "<p>Совокупные дивиденды в следующие 12m:", vbTextCompare)
    
    Text = Mid(Text, Pos)
    Pos = InStr(1, Text, "</span>", vbTextCompare)
    Text = Left(Text, Pos - 1)
    
    Pos = InStr(1, Text, """>", vbTextCompare)
    Text = Mid(Text, Pos + 2)
    Text = Replace(Text, " ", "")
    
    Dividend = Val(Text)
    
End Function