Dim HTMLparser As New iTextSharp.text.html.simpleparser.HTMLWorker( _
              oDoc)
            Writer = PdfWriter.GetInstance(oDoc, New FileStream( _
            ".\PDF\test.pdf", _
             FileMode.Create))
 
 
            oDoc.Open()
            Dim reader2 As System.IO.TextReader = New StreamReader(".\HTML\" & _
              dateiliste(i3).ToString)
            HTMLparser.Parse(reader2)
 
            oDoc.Close()