Subir archivos por vba a la nube con dropbox

El primer enlace utiliza el recurso para listar los usuarios que tienen acceso a las carpetas compartidas.

Option Compare Database
Dim access_token As String
Dim req As Object
Dim vardir As String
Dim varfile As String


Private Sub Command0_Click()
    Dim arg As String
    result = FRB(vardir)
    varfile = "\/TU_DIRECTORIO_EN_DRPBOX\/NOMBRE_Y_EXTENSION_FINAL_DEL_ARCHIVO_EN_DROPBOX"
    arg = "{""path"":""" & varfile & """,""mode"":""add"",""autorename"":false,""mute"":true}"
    Set req = CreateObject("WINHTTP.WinHTTPRequest.5.1")
    
    req.Open "POST", "https://content.dropboxapi.com/2/files/upload", False
    req.setRequestHeader "Authorization", "Bearer " & access_token       'Hay que poner el token de la aplicacion de dropbox en la variable
    req.setRequestHeader "Content-Type", "application/octet-stream"

    req.setRequestHeader "Dropbox-API-Arg", arg
    req.setRequestHeader "User-Agent", "api-explorer-client"
    req.send (result)
    
    If req.status = 200 Then
        Debug.Print req.responseText
    Else
        Debug.Print req.responseText
    End If
End Sub

Private Sub Form_Load()
access_token = "TU-TOKEN"

'ruta del archivo a enviar. Debes enmascarar las barras inclinadas para que sea formato JSON valido
vardir = "C:\\Users\\Carlos\\Documents\\MisOcx\\alter.txt"
End Sub

Function FRB(ByVal sRuta As String) As Byte()
    Dim b() As Byte
    Open sRuta For Binary As #1
    ReDim b(FileLen(sRuta) - 1) '''''****ESTE -1 ES LA SOLUCIÓN PARA QUE NO CORROMPA LOS ARCHIVOS******RESTARLE UN BYTE
    Get #1, , b
    Close #1
    FRB = b