With CreateObject("MSXML2.XMLHTTP")
.Open "POST", sUrl, bAsync
user = "bassco"
pass = "2019bassco"
.setRequestHeader "Authorization", "Basic " + Base64Encode(user + ":" + pass)
.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & STR_BOUNDARY
.send pvToByteArray(sPostData)
If Not bAsync Then
pvPostFile = .statusText
End If
End With