Public Function ParsePdfText(ByVal sourcePDF As String, Optional ByVal _
  fromPageNum As Integer = 0, Optional ByVal toPageNum As Integer = 0) As String
 
        Dim sb As New System.Text.StringBuilder()
        Try
            Dim reader As New PdfReader(sourcePDF)
            Dim pageBytes() As Byte = Nothing
            Dim token As PRTokeniser = Nothing
            Dim tknType As Integer = -1
            Dim tknValue As String = String.Empty
            If fromPageNum = 0 Then
                fromPageNum = 1
            End If
            If toPageNum = 0 Then
                toPageNum = reader.NumberOfPages
            End If
            If fromPageNum > toPageNum Then
                Throw New ApplicationException("Parameter error: The value of" & _
                  "fromPageNum can " & _
                                           "not be larger than the value of" & _
                                           "toPageNum")
            End If
 
            For i As Integer = fromPageNum To toPageNum Step 1
                pageBytes = reader.GetPageContent(i)
                If Not IsNothing(pageBytes) Then
                    token = New PRTokeniser(pageBytes)
                    While token.NextToken()
                        tknType = token.TokenType()
                        tknValue = token.StringValue
 
 
                        If tknType = PRTokeniser.TK_STRING Then
                            sb.Append(token.StringValue & " ")
 
                            'MsgBox(tknValue)
                            'I need to add these additional tests to properly 
                            ' add whitespace to the output string
                        ElseIf tknType = 1 AndAlso tknValue = "-600" Then
 
                            sb.Append(" ")
                        ElseIf tknType = 10 AndAlso tknValue = "TJ" Then
                            MsgBox(tknType & "   " & tknValue)
                            sb.Append(" ")
                        End If
                    End While
                End If
            Next i
        Catch ex As Exception
            MessageBox.Show("Exception occured. " & ex.Message)
            Return String.Empty
        End Try
        Return sb.ToString()
    End Function