' Get the TXT from a PDF Public Function GetTXT() As Boolean Dim lcValue As String = "" Dim llSuccess As Boolean = False Dim lnCounter As Integer = 0 Dim lnType As Integer = -1 Dim loByte() As Byte = Nothing Dim loPRTokeniser As iTextSharp.text.pdf.PRTokeniser = Nothing Dim loStringBuilder As System.Text.StringBuilder = New System.Text.StringBuilder ' Reset the value cMessage = "" cTXT = "" Try ' For each page For lnCounter = 1 To nPage loByte = oPdfReader.GetPageContent(lnCounter) ' If we have something If Not IsNothing(loByte) Then loPRTokeniser = New iTextSharp.text.pdf.PRTokeniser(loByte) While loPRTokeniser.NextToken() lnType = loPRTokeniser.TokenType() lcValue = loPRTokeniser.StringValue ' If this is a string If lnType = PRTokeniser.TK_STRING Then loStringBuilder.Append(loPRTokeniser.StringValue) 'I need to add these additional tests to properly add whitespace to the output string ElseIf lnType = 1 AndAlso lcValue = "-600" Then loStringBuilder.Append(" ") ElseIf lnType = 10 AndAlso lcValue = "TJ" Then loStringBuilder.Append(" ") End If End While End If Next llSuccess = True Catch loError As Exception cMessage = loError.Message End Try Return llSuccess End FunctionHowever, the designer complains on the TK_STRING. Can someone point me to a reference of the equivalent value of TK_STRING?