Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Set text = "test_message"
objHTTP.Open "POST", "https://api.telegram.org/bot{API_TOKEN}/sendMessage", False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-Type", "application/json"
objHTTP.send "{""chat_id"": ""-100XXXXXXXXXX"", ""text"": """ & text & """, ""disable_notification"": false}"
Еще есть такие варианты объекта:
"MSXML2.XMLHTTP", "MSXML2.ServerXMLHTTP60"
Можно еще чистить text от двойных кавычек