Sub Main()
    Dim pathToPdf As String = "D:File.pdf"
    Dim pathToWord As String = "D:Result.rtf"

    'Convert PDF file to Word file
    Dim f As New SautinSoft.PdfFocus()

    f.OpenPdf(pathToPdf)

    If f.PageCount > 0 Then
        Dim result As Integer = f.ToWord(pathToWord)

        'Show Word document
        If result = 0 Then
            System.Diagnostics.Process.Start(pathToWord)
        End If
    End If
    End Sub

Dim doc As PDFDoc = New PDFDoc("my.pdf")
Dim txt As TextExtractor = New TextExtractor
txt.Begin(doc.GetPage(1))
Console.WriteLine(txt.GetAsText())