Dim oHttp As Object
Dim URL, sFile, frmData As String
Const Boundary As String = "-----------aaa----------------"

sFile = "c:\Temp\pic.JPG"
token = "237895699:AAGGCZ1_XH5dNQTBCKcJOFajSW5999999999" 'not real
chat_id = "11111111"   'not real
sTxt = "hello"
'URI = "https://api.telegram.org/bot237895699:AAGGCZ1_XH5dNQTBCKcJOFajSW5999999999/sendmessage?chat_id=11111111&text="  & sTXT ' --> 'это ок
'URI = "https://api.telegram.org/bot237895699:AAGGCZ1_XH5dNQTBCKcJOFajSW5999999999/sendmessage?chat_id=11111111&text=" & sTXT & vbNewLine & sTXT ' --> 'это не ок

URL = "https://api.telegram.org/bot" & token & "/sendphoto?chat_id=" & chat_id

Set oHttp = CreateObject("Msxml2.ServerXMLHTTP")

oHttp.Open "POST", URL, False
oHttp.setRequestHeader "cache-control", "no-cache"
oHttp.setRequestHeader "Content-Type", "multipart/form-data"

frmData = Boundary & vbNewLine & _
"Content-Disposition: multipart/form-data; name=""sendPhoto""; filename=""" & sFile & """" & vbNewLine & _
"Content-Type: application/octet-stream" & vbNewLine & Boundary

MsgBox URL & vbNewLine & sPostData, vbInformation, "request"

oHttp.send frmData

MsgBox oHttp.responseText, vbInformation, "answer from tlg API"
Set oHttp = Nothing

Sub Send_to_Telegram_Bot_example()
Dim oHttp As Object
Dim sURI As String

'token = "00000000:AaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAa"
'chat_id = "88888888"
'txt = "hello"

'sURI = "https://api.telegram.org/bot000000000:Aa....AaAa/getme"
'sURI = "https://api.telegram.org/bot000000000:Aa....AaAa/getupdates"

'sendproto не работает!!! Блин, не знаю, как скормить строке имя файла С:\temp\pic.png?
'запрос с файлом должен быть в формате multipart/form-data
'sURI = "https://api.telegram.org/bot000000000:Aa.....AaAa/sendproto?chat_id=88888888@photo=C:\temp\pic.png"

sURI = "https://api.telegram.org/bot000000000:Aa....AaAa/sendmessage?chat_id=88888888&text=hello"

MsgBox sURI, vbInformation, "запрос"
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If oHttp Is Nothing Then Exit Sub
oHttp.Open "GET", sURI, False
oHttp.Send
MsgBox oHttp.ResponseText, vbInformation, "ответ"
Set oHttp = Nothing
End Sub