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

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

  DC = Nothing

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