Function RussianStringToURLEncode_New(ByVal txt As String) As String
    For i = 1 To Len(txt)
        l = Mid(txt, i, 1)
        Select Case AscW(l)
            Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case 32: t = "%20"
            Case Else: t = l
        End Select
        RussianStringToURLEncode_New = RussianStringToURLEncode_New & t
    Next
End Function
  

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"
'Call RussianStringToURLEncode_New
tex = Cells(1, 1)
tex = RussianStringToURLEncode_New(tex)
sURI = "https://api.telegram.org/bot214343439:AAFko1ohZpgh95KTsnPskMdfsdfuVTHqFs/sendMessage?chat_id=3345500446&text=" & tex
 
'MsgBox sURI, vbInformation, "запрос"
'On Error Resume Next
'Set oHttp = CreateObject("MSXML2.XMLHTTP")
'Dim oHttp As Object
Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")


'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

Sub SendTelega()
    Call MessageToTelegram("Hello world!")
End Sub

' Функция для отправки кириллицы
Function RussianStringToURLEncode_New(ByVal txt As String) As String
    Dim i As Long, l As String, t As String
    For i = 1 To Len(txt)
        l = Mid(txt, i, 1)
        Select Case AscW(l)
            Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case 32: t = "%20" ' Пробел
            Case 10: t = "%0a" 'Перевод строки
            Case Else: t = l
        End Select
        RussianStringToURLEncode_New = RussianStringToURLEncode_New & t
    Next
End Function


Sub MessageToTelegram(msg)
    Dim Token As String, ChatID As String, message As String
    Dim sURL As String, oHttp As Object, sHTML As String
    'message = RussianStringToURLEncode_New(Range("A1").Text) 'Отправляемый текст в ячейке А1
    message = RussianStringToURLEncode_New(msg)
    Token = "1774315163:AWHRA87WxIJktOt4PGGpS_HxqwqrFtmyvPG" ' токен своего бота
    ChatID = "-1034578998940" 'id бота (для отправки только боту) или группы
    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