wordapp = New Word.Application
            wordapp.Visible = False
            Try
                wordapp.Documents.Open(Datei)
            Catch ex As Exception
                MsgBox(ex.Message)
                Dim newTemplate As Object = False
                Dim docType As Object = 0
                Dim isVisible As Object = True
                wordapp.Documents.Add(Datei, newTemplate, docType, isVisible)
            End Try