[FONT=Courier New]Private Sub Merge()
Dim oPDF As New PDF_reDirect_Pro_Tool
Dim Files_to_Merge(1) As String
Dim TempBool As Boolean
' Files to Upload
Files_to_Merge(0) = "C:\Temp\Delme.pdf"
Files_to_Merge(1) = "C:\Temp\Buddy Time sign 3001.pdf"
With oPDF
TempBool = .Utility_Merge_PDF_Files("C:\MergeTest.pdf", Files_to_Merge)
If Not TempBool Then
' NOTES ON ERROR CODES for oPDF.ErrorLastDLL
' 401 - One of the Input File could not be opened
' 410 - One of the Input File could not be decrypted
MsgBox "An Error Occured: " & .LastErrorDescription & vbCrLf & _
"Error Number =" & Str$(.LastErrorNumber) & vbCrLf & _
"DLL Error Number =" & Str$(.ErrorLastDLL), _
vbExclamation
Else
MsgBox "Merge Successful.", vbInformation
End If
End With
Set oPDF = Nothing
End Sub[/FONT]