HTTP Post to a web service using VBA

Формулировка задачи:

Вот, собственно, озадачился прикрутить бота к мессенджеру "Телеграм". Для PHP (где я мало чего смыслю) масса разной инфы, для VB/VBA - ничего. Ладно, создал бота, а вот с его управлением возникла заминка. У PHP есть функция curl_setopt, примерный аналог как я понял в VB MSXML2.ServerXMLHTTP60 У меня получилось вот что:

                    Листинг программы
                
Dim xhr As New MSXML2.ServerXMLHTTP60
Dim sURL1 As String
sURL1 = "https://api.telegram.org/bot341663227:AAHpKGxtJ9RGtybSAEJjyeYr4tYlQkxlcgc/sendMessage?text=test&&chat_id=534554734"
xhr.open "GET", sURL1, False
xhr.send
Debug.Print xhr.responseText

И это работает, НО никак не получается с

                    Листинг программы
                
xhr.open "POST"

Точнее я хочу sURL1 = "https://api.telegram.org/bot341663227:AAHpKGxtJ9RGtybSAEJjyeYr4tYlQkxlcgc/sendMessage" , а в xhr.send запихать что-то такое: "?text=test&chat_id=373540734" тут инфа, но я не могу разобраться: https://tlgrm.ru/docs/bots/api#authorizing-your-bot

Решение задачи: «HTTP Post to a web service using VBA»

textual
                            Листинг программы 
                        
xhr.send "?text=test&chat_id=373540734"