Sub trrrr() 
sURL = "https://api.telegram.org/bot" 
apikey = "5000XX47:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
chat_id = "XXXXXXXXX" 
Const Boundary As String = "-----------test---------" 
URL = sURL & apikey & "/sendDocument" 
sFile = "C:\Users\lexey\Downloads\LOG.txt" 'файл
Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1") 
oHttp.Open "POST", URL, False 
oHttp.setRequestHeader "Connection", "keep-alive" 
oHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Boundary 
FrmData = Boundary & vbNewLine 
FrmData = FrmData & "Content-Disposition: form-data; name=" & Chr(34) & "chat_id" & Chr(34) & ";" & vbNewLine & vbNewLine 
FrmData = FrmData & chat_id & vbNewLine & vbNewLine 
FrmData = FrmData & Boundary & vbNewLine 
FrmData = FrmData & "Content-Disposition: form-data; name=" & Chr(34) & "document" & Chr(34) & "; filename=" & Chr(34) & sFile & Chr(34) & vbNewLine & vbNewLine 
FrmData = FrmData & Boundary & "-" 
oHttp.send FrmData: DoEvents 
Debug.Print FrmData 
'Debug.Print oHttp.responseText 
Set oHttp = Nothing 
End Sub