1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

   Dim DC As Object : DC = CreateObject("Neevia.docCreator")

   Dim RVal As Integer=DC.splitPDF("c:\users\public\test.pdf","c:\users\public\")

   DC = Nothing

   If RVal=0 Then
     MsgBox("Done !!!")
   Else
     MsgBox("There was an error splitting the document !!!")
   End If