Отправьте pdf / jpg файл в http запросе - ошибка сервера

Question

Я хочу отправить изображение или PDF-документ в пост-запросе, URL работает нормально, но в визуальном базисе c Я использовал приведенный ниже код для отправки документа с использованием URL-адреса, но он выдает ошибку сервера ответа на ошибку. Я проверил URL, он не имеет проблем, но когда я попытался реализовать в VB, в ответ я получаю 500 ошибка сервера

Dim strFile As String  
Dim uploadDocUrl As String
Dim baBuffer() As Byte
Dim sPostData As String
Dim strFile As String
Dim strFileName As String   

strFile = "C://Users/Avinashi/Desktop/1.pdf"
uploadDocUrl = "http://api.tally.messaging.bizbrain.in/api/v1/uploadFile"
strFileName = "1.pdf"
nFile = FreeFile

Open strFile For Binary Access Read As nFile
If LOF(nFile) > 0 Then
ReDim baBuffer(0 To LOF(nFile) - 1) As Byte
Get nFile, , baBuffer
sPostData = StrConv(baBuffer, vbUnicode)
End If
Close nFile

sPostData = "--" & STR_BOUNDARY & vbCrLf & _
"Content-Disposition: form-data;name=""1.pdf""; filename=""" & Mid$(strFile, InStrRev(strFile, "\") + 1) & """" & vbCrLf & _
"Content-Type:multipart/form-data" & vbCrLf & vbCrLf & _
sPostData & vbCrLf & _
"--" & STR_BOUNDARY & "--"

 With CreateObject("Microsoft.XMLHTTP")
.Open "POST", uploadDocUrl, bAsync
.SetRequestHeader "Content-Type", "multipart/form-data"
.SetRequestHeader "token", "78bea912b4a5c497b85926bb471fab04"
.Send pvToByteArray(sPostData)
MsgBox (.responseText)
End With

Private Function pvToByteArray(sText As String) As Byte()
    pvToByteArray = StrConv(sText, vbUnicode)
End Function