А как можно это исправить? Проверил на другом компе, все работает. Но на мак буке не хочет.

Всем привет! Написал код, но почему-то при запуске выводит ошибку. При этом надписывал разные варианты кода, которые были выше. Кто сможет сказать в чем причина? Так как запрос в Гугл ничего толкового не дал.
Сам код:
Sub Send_to_Telegram_Bot_example()
       Dim Token As String, ChatID As String, Text As String
       Dim sURI As String, oHttp As Object, sHTML As String
       message = Range("B10").Text
       Token = "5835891000:AAG80T3BTBNpI2H9aeCHwmOXEOLkkl4QЕhj"
       ChatID = "197356622"
       sURL = "https://api.telegram.org/bot" & Token & "/sendMessage?chat_id=" & ChatID & "&text=" & message
       Set oHttp = CreateObject("Msxml2.XMLHTTP")
       oHttp.Open "POST", sURL, False
       oHttp.send
       Set oHttp = Nothing
End Sub

ошибка:
License information for this component not found.  You do not have an appropriate license to use this functionality in the design environment.