Imports System.IO
Imports PdfSharp
Imports PdfSharp.Pdf
Imports PdfSharp.Pdf.IO

    Private Sub TestPDF()
        Dim sFilename As String = "d:\testdoc.pdf"

        Dim inputDocument As PdfDocument
        inputDocument = PdfReader.Open(sFilename, PdfDocumentOpenMode.Import)

        Dim sNameOnly As String = Path.GetFileNameWithoutExtension(sFilename)
        Dim i As Integer = 0

        For i = 0 To 1 'inputDocument.PageCount
            Dim outputDocument As New PdfDocument
            outputDocument.Version = inputDocument.Version

            outputDocument.Info.Title = String.Format("Page {0} of {1}", i, inputDocument.Info.Title)
            outputDocument.Info.Creator = inputDocument.Info.Creator
            outputDocument.AddPage(inputDocument.Pages(i))

            outputDocument.Save(String.Format("d:\{0} - Page {1}_tempfile.pdf", sNameOnly, i))
        Next
    End Sub