Private Sub Worduebergabe_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles AW_Button_Worduebergabe.Click
 
        Const WordDocVorlage As String = "\Auswertung1.dot"
 
        Dim progWord As Object
        Dim Dokument As Object
 
        Try
            progWord = CreateObject("Word.Application")
            Dokument = progword.DOCUMENTS.add(Template:=WordDocVorlage)
            progWord.Visible = True
 
            For i As Integer = 0 To AW_ListBox1.Items.Count - 1
 
                If progWord.ActiveDocument.Bookmarks.Exists("Zeile") Then
                    progWord.ActiveDocument.Bookmarks("Zeile").Range.Text = _
                        AW_ListBox1.Items(i).ToString
                    'progWord.ActiveDocument.
                End If
 
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try