Private Sub CreateQuotation()
 
        Dim Link As String
 
        Dim WordAppl As Microsoft.Office.Interop.Word.Application
        Dim WdDoc As Microsoft.Office.Interop.Word.Document
 
        WordAppl = CreateObject("Word.Application")
        'WdDoc = WordAppl.Documents.Add
        Link = My.Application.Info.DirectoryPath & "\Templates" & "\General" & _
          "\ErsteSeite.dotx"
        WdDoc = WordAppl.Documents.Add(Link)
 
        Dim Array1 As Array
        Dim Daten As String
 
        ProgressBar_Quotation.Value = 0
        ProgressBar_Quotation.Refresh()
 
        For i = 0 To ListBox_Quotation.Items.Count - 1
 
            Daten = ListBox_Quotation.Items(i).ToString
            Array1 = Split(Daten, " | ")
 
            'Link_SharePoint = My.Application.Info.DirectoryPath & 
            ' "\Templates\" & Array1(0) & "\" & Array1(1) & "\" & Array1(2)
            Link = RootDir & "\" & Daten
 
            WordAppl.Selection.InsertFile(FileName:=Link)
            WordAppl.Selection.InsertBreak()
 
            ProgressBar_Quotation.Value += (100 / ListBox_Quotation.Items.Count)
            ProgressBar_Quotation.Refresh()
        Next
 
        WordAppl.Selection.MoveStart()
        WordAppl.Application.Visible = True
 
End Sub