How to convert pdf data to Excel

Dim mPDF as string="C:\test.pdf"
Dim mTXT as string="C:\test.txt"
Dim mPDFreader As New iTextSharp.text.pdf.PdfReader(mPDF)
Dim mPageCount as integer  = mPDFreader.NumberOfPages()

 'Create the text file.
 Dim fs As FileStream = File.Create(mTXT)
 Dim strategy As iTextSharp.text.pdf.parser.SimpleTextExtractionStrategy
            For i As Integer = 1 To mPageCount
                strategy = parser.ProcessContent(i, New iTextSharp.text.pdf.parser.SimpleTextExtractionStrategy())
                Dim info As Byte() = New UTF8Encoding(True).GetBytes(strategy.GetResultantText())
                fs.Write(info, 0, info.Length)
            Next
 fs.Close()