I am trying to use VBA to replace the pages of one PDF with the pages of another. Specifically, I have a pdf called part1.pdf and another called part2.pdf. I want to create a merged pdf that has the first 3 pages of part1.pdf and pages 2-100 of part2.pdf.

I tried using this code, with no success.

Code:
[COLOR=var(--blue-800)]Sub[/COLOR][COLOR=var(--black-750)] Button1_Click[/COLOR][COLOR=var(--black-750)]()[/COLOR][COLOR=var(--black-750)]

    [/COLOR][COLOR=var(--blue-800)]Dim[/COLOR][COLOR=var(--black-750)] AcroApp [/COLOR][COLOR=var(--blue-800)]As[/COLOR][COLOR=var(--black-750)] Acrobat[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]CAcroApp

    [/COLOR][COLOR=var(--blue-800)]Dim[/COLOR][COLOR=var(--black-750)] Part1Document [/COLOR][COLOR=var(--blue-800)]As[/COLOR][COLOR=var(--black-750)] Acrobat[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]CAcroPDDoc
    [/COLOR][COLOR=var(--blue-800)]Dim[/COLOR][COLOR=var(--black-750)] Part2Document [/COLOR][COLOR=var(--blue-800)]As[/COLOR][COLOR=var(--black-750)] Acrobat[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]CAcroPDDoc

    [/COLOR][COLOR=var(--blue-800)]Dim[/COLOR][COLOR=var(--black-750)] numPages [/COLOR][COLOR=var(--blue-800)]As[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]Integer[/COLOR][COLOR=var(--black-750)]

    [/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] AcroApp [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] CreateObject[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"AcroExch.App"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]

    [/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] Part1Document [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] CreateObject[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"AcroExch.PDDoc"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]
    [/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] Part2Document [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] CreateObject[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"AcroExch.PDDoc"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]

    Doc1[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Open [/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"C:\temp\Part1.pdf"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]
    Doc2[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Open [/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"C:\temp\Part2.pdf"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]

    [/COLOR][COLOR=var(--black-400)]' Insert the pages of Part2 after the end of Part1[/COLOR][COLOR=var(--black-750)]
    numPages [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] Doc1[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]GetNumPages[/COLOR][COLOR=var(--black-750)]()[/COLOR][COLOR=var(--black-750)]

    [/COLOR][COLOR=var(--blue-800)]If[/COLOR][COLOR=var(--black-750)] Doc1[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]InsertPages[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--black-750)]numPages [/COLOR][COLOR=var(--red-800)]3[/COLOR][COLOR=var(--black-750)],[/COLOR][COLOR=var(--black-750)] Doc2[/COLOR][COLOR=var(--black-750)],[/COLOR][COLOR=var(--black-750)]
        [/COLOR][COLOR=var(--red-800)]0[/COLOR][COLOR=var(--black-750)],[/COLOR][COLOR=var(--black-750)] Doc2[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]GetNumPages[/COLOR][COLOR=var(--black-750)](),[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]True[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]False[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]Then[/COLOR][COLOR=var(--black-750)]
        MsgBox [/COLOR][COLOR=var(--red-800)]"Cannot insert pages"[/COLOR][COLOR=var(--black-750)]
    [/COLOR][COLOR=var(--blue-800)]End[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]If[/COLOR][COLOR=var(--black-750)]

    [/COLOR][COLOR=var(--blue-800)]If[/COLOR][COLOR=var(--black-750)] Doc1[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Save[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--black-750)]PDSaveFull[/COLOR][COLOR=var(--black-750)],[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]"C:\temp\MergedFile.pdf"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]False[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]Then[/COLOR][COLOR=var(--black-750)]
        MsgBox [/COLOR][COLOR=var(--red-800)]"Cannot save the modified document"[/COLOR][COLOR=var(--black-750)]
    [/COLOR][COLOR=var(--blue-800)]End[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]If[/COLOR][COLOR=var(--black-750)]

    Doc1[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Close
    Doc2[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Close

    AcroApp[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--blue-800)]Exit[/COLOR][COLOR=var(--black-750)]
    [/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] AcroApp [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]Nothing[/COLOR][COLOR=var(--black-750)]
    [/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] Part1Document [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]Nothing[/COLOR][COLOR=var(--black-750)]
    [/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] Part2Document [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]Nothing[/COLOR][COLOR=var(--black-750)]

    MsgBox [/COLOR][COLOR=var(--red-800)]"Done"[/COLOR][COLOR=var(--black-750)]

[/COLOR][COLOR=var(--blue-800)]End[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]Sub[/COLOR]
Anyone know that I am doing wrong?