העלאת קובץ דרך VBA (ויזואל בייסיק)

[יב]

מישהו מכיר כאן VBA?
כתבתי קוד בVBA להעלאת תוכן מגיליון מסוים באקסל, ללא הורדה למחשב.
כשניסיתי בקוד אחר לבצע רק הורדה למחשב זה עבד מעולה.
אבל כשאני עושה את הקוד הזה להעלאה באתר, הוא מחזיר לי שגיאה, ואני לא מצליח להבין מה בדיוק הנקודה שחסר.
את הטוקן והנתיב נשלח בGET והשאר בPOST.
אשמח לעזרה!

    ' יצירת אובייקט HTTP
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP.6.0")

    ' הגדרת URL
    Dim url As String
    url = "https://www.call2all.co.il/ym/api/UploadFile?token=" & token & "&path=" & path

    ' פתיחת חיבור ל-POST
    http.Open "POST", url, False

    ' הגדרת כותרת הבקשה
    http.setRequestHeader "Content-Type", "multipart/form-data"

    ' יצירת גבול גוף הבקשה
    Dim boundary As String
    boundary = "-----" & Format(Now, "yyyyMMddhhmmss")
    Dim body As String
    body = "--" & boundary & vbCrLf
    body = body & "Content-Disposition: form-data; name=""file""; filename=""IdListMessage.ini""" & vbCrLf
    body = body & "Content-Type: text/plain; charset=UTF-8" & vbCrLf & vbCrLf
    body = body & EncodeToUTF8(iniContent) & vbCrLf
    body = body & "--" & boundary & "--" & vbCrLf

    ' הגדרת אורך הגוף
    http.setRequestHeader "Content-Length", Len(body)

    ' שליחת הבקשה
    On Error GoTo ErrorHandler
    http.send body

    ' קבלת התגובה
    Dim response As String
    response = http.responseText

    ' הצגת התגובה
    MsgBox response

    ' שחרור האובייקט
    Set http = Nothing

בנוסף מוגדר פונקציה לקידוד נכון (כי חשבתי שיש בעיה בקידוד)

Function EncodeToUTF8(ByVal str As String) As String
    Dim arr() As Byte
    arr = StrConv(str, vbFromUnicode)
    EncodeToUTF8 = arr
End Function