Dim i As Integer
        Dim XL As Object
 
        Dim nr As String
        Dim zeit As String
        Dim ko As String
        Dim path As String
        XL = CreateObject("Excel.Application")
 
        XL.Visible = True
        XL.Workbooks.Add()
        XL.ActiveSheet.Select()
 
        With ListBox4
            For i = 0 To ListBox4.Items.Count - 1
                XL.ActiveSheet.Cells(i + 1, 1).Value = ListBox4.Items(i)
 
                nr = ListBox4.Items(i)
                path = "\\xxx\MOBIL\" & nr
                zeit = My.Computer.FileSystem.ReadAllText(path & "\zeit")
                ko = My.Computer.FileSystem.ReadAllText(path & "\ko")
 
                XL.ActiveSheet.Cells(i + 1, 2).Value = zeit
                XL.ActiveSheet.Cells(i + 1, 3).Value = ko
 
            Next i
        End With
 
        XL.ActiveWorkbook.Close()
        XL.Quit()
 
        XL = Nothing