Private Sub Command1_Click()
  Dim lPnt As Long
  Dim lRet As Long
  Dim iPosit As Integer
  Dim hFich As Integer
  Dim Text As String
  Dim InputFileName As String
  Dim OutputFileName As String
  Dim DocId As Long
  Dim Tbl1 As Variant
  Dim Tbl2 As Variant
  Dim sTemp As String
  Dim X1 As Double
  Dim Y1 As Double
  Dim X2 As Double
  Dim Y2 As Double
  Dim X3 As Double
  Dim Y3 As Double
  Dim X4 As Double
  Dim Y4 As Double
  
  Dim Ok As Boolean
  
  'get input and output filenames
  InputFileName = LCase(Text1)
  OutputFileName = Replace(InputFileName, ".pdf", ".txt")
  'get a free handle number
  hFich = FreeFile
  'ctreat a new occurence of ised
  Set Doc = New iSED.QuickPDF
  'unlock ised
  lRet = Doc.UnlockKey("XXXXXXXXXXXXXXXXXXXXXX")
  'load the sample file
  DocId = Doc.LoadFromFile(InputFileName )
  'select first page
  lRet = Doc.SelectPage(1)
  'combine layers to got the whole text
  lRet = Doc.CombineLayers
  'set SetMeasurementUnits to millimeters
  Doc.SetMeasurementUnits 1
  ' set origin to top left
  Doc.SetOrigin 1
  'get the text
  Text = Doc.GetPageText(3)
  
  'free memory
  Doc.RemoveDocument DocId
  
  ' Split the text in a table, using the cr+lf as a line séparator
  Tbl1 = Split(Text, vbCrLf)
  'analyse each table's line
  For lPnt = 0 To UBound(Tbl1) - 1
    sTemp = Tbl1(lPnt)
    'remove the font name
    iPosit = InStr(sTemp, Chr(34) & ",")
    sTemp = Mid(sTemp, iPosit + 1)
    'split the line into parts using comma as separator
    Tbl2 = Split(sTemp, ",")
    X1 = CDbl(Tbl2(3))
    Y1 = CDbl(Tbl2(4))
    X2 = CDbl(Tbl2(5))
    Y2 = CDbl(Tbl2(6))
    X3 = CDbl(Tbl2(7))
    Y3 = CDbl(Tbl2(8))
    X4 = CDbl(Tbl2(9))
    Y4 = CDbl(Tbl2(10))
    'to be a rectangle (assuming points are define clockwise)
    'x1 must equal x4
    'y1 must equal y2
    'x2 must equal x3
    'y3 must equal y4
    Ok = True 'by default, the datas define a rectangle
    If X1 <> X4 Then
      Ok = False
    End If
    If X2 <> X3 Then
      Ok = False
    End If
    If Y1 <> Y2 Then
      Ok = False
    End If
    If Y3 <> Y4 Then
      Ok = False
    End If
    If Not Ok Then
      MsgBox "this line do not define a rectangle" & vbCrLf & _
              Tbl1(lPnt)
    End If
  Next
  MsgBox "test finished"
End Sub