Combine PDF files into 3 PDF files

Question

I have the following code that combines the PDF files in a folder into one PDF folder

Sub PDFs_Combine_LateBound()
Dim PdfDst As Object, PdfSrc As Object
Dim