Public Sub Write_Excelfile()
        Dim exl As Excel.Application
 
        exl = CreateObject("Excel.Application")
        exl.DisplayAlerts = False
        exl.ScreenUpdating = False
        exl.Workbooks.Add()
        Dim WB As Excel.Workbook = exl.ActiveWorkbook()
        Dim WS As Excel.Worksheet
 
                   For i As Integer = 1 To mtmpDateien.GetUpperBound(1)
 
                           exl.Workbooks.OpenText(Filename:=mtmpDateien(2, i), _ 
                                 Origin:=Excel.XlPlatform.xlWindows, _
                                 StartRow:=1,_
                                 DataType:=Excel.XlTextParsingType.xlDelimited, _
                                 TextQualifier:= _
                                 Excel.XlTextQualifier.xlTextQualifierDoubleQuo_
                                 te, _
                                 ConsecutiveDelimiter:=False, TAB:=False, _
                                 Semicolon:=True, _
                                 Comma:=False, Space:=False, Other:=False)
 
                           exl.Workbooks(Path.GetFileName(mtmpDateien(2, _
                             i))).Worksheets(1).move(After:=WB.Worksheets( _
                             WB.Worksheets.Count))
                            WS = WB.Worksheets(WB.Worksheets.Count)
                            WS.Name = mtmpDateien(1, i)
 
                   Next
            exl.DisplayAlerts = True
            exl.ScreenUpdating = True
            WB.SaveAs(mPath & "\" & mtmpDateien(0, mtmpDateien.GetUpperBound( _
              1)))
            WB.Close()
 
        WS = Nothing
        WB = Nothing
        exl.Quit()
        exl = Nothing
 
    End Sub