Dim file_write As New IO.FileInfo(TextBox1.Text & ".pdf")
        Dim writer As New IO.StreamWriter(file_write.Create)
        Dim text As String
        Dim reader As IO.StreamReader = IO.File.OpenText(TextBox1.Text)
        text = reader.ReadToEnd
        reader.Close()
        writer.Write("%PDF-1.2")
        writer.Write("%âãÏÓ")
        writer.Write("1 0 obj")
        writer.Write("<<")
        writer.Write("/Author (" & Autor.Text & ")")
        writer.Write("/CreationDate (" & "D:" & Format(Now, "YYYYMMDDHHNNSS") & _
          ")")
        writer.Write("/Creator (" & Creator.Text & ")")
        writer.Write("/Producer (" & Producer.Text & ")")
        writer.Write("/Title (" & Title.Text & ")")
        writer.Write("/Subject (" & Subject.Text & ")")
        writer.Write("/Keywords (" & Keywords.Text & ")")
        writer.Write(">>")
        writer.Write("endobj")
        writer.Write("4 0 obj")
        writer.Write("<<")
        writer.Write("/Type /Font")
        writer.Write("/Subtype /Type1")
        writer.Write("/Name /F1")
        writer.Write("/Encoding 5 0 R")
        writer.Write("/BaseFont /" & "Times-Roman")
        writer.Write(">>")
        writer.Write("endobj")
        writer.Write("5 0 obj")
        writer.Write("<<")
        writer.Write("/Type /Encoding")
        writer.Write("/BaseEncoding /WinAnsiEncoding")
        writer.Write(">>")
        writer.Write("endobj")
        writer.Write("6 0 obj")
        writer.Write("<<")
        writer.Write("  /Font << /F1 " & 4 & " 0 R >>")
        writer.Write("  /ProcSet [ /PDF /Text ]")
        writer.Write(">>")
        writer.Write("endobj")
 
 
        'Am Ende %%EOF
        writer.Write("%%EOF")
        writer.Close()