Public Class Form1 
    Private Sub pdf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pdf.Click 
 
        Dim myInDesign = CreateObject("InDesign.Application.CS3") 
 
        Dim textautor = autor.Text 
    
        If verlag.Text = "VS-Verlag" And presse.Checked Then 
            Dim myDocument = myInDesign.open("'hier Pfadname eingeben'", True) 
            With myInDesign.PDFExportPreferences 
                .ViewPDF = True 
            End With 
            Dim myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
            Dim AryStringArray() As String = {"54", "59", "199", "195"} 
            myTextFrame.GeometricBounds = AryStringArray 
 
            myTextFrame.Contents = textautor 
            myTextFrame.ParentStory.AppliedParagraphStyle = myDocument.ParagraphStyles.Item("01_Autor")