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

Дивидендный сезон в разгаре, пора рассчитать планируемые дивиденды.
Держите скрипт для Excel.

1. Укажите тикер
2. Укажите количество
3. Вставьте формулу "=Dividend(Тикер)"
4. Перемножьте одно на другое
5. Ваш портфель великолепен.

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

PS: Все права на расчет дивидендов принадлежат www.dohod.ru/