Problem med at downloade filer der er større end 4 MB

Jeg følgende kode som giver adgang til at downloade en fil:

Sti = Session("folder") & "\" & Folder & "\" & file

    Dim objBinaryRead
    Dim saBinFile        'if you don't want error safe
    Dim bDownloadStatus
   
    Set objBinaryRead = CreateObject("FileTransfer.BinaryRead")
       
    Response.Buffer      = true
    Response.Addheader "Content-Disposition", "attachment; filename=" & File

    'Overfør filer til klienten
    bDownloadStatus = objBinaryRead.ResponseBinaryWrite(Session("folder") & "\" & Folder & "\" & file, Response)

    Set objBinaryRead = nothing

Problemet er at hvis filerne bliver større end 4 MB kan de ikke hentes