nr = ListBox4.SelectedItem
        Path = "\\xxx\MOBIL\" & nr
 
        zeit = My.Computer.FileSystem.ReadAllText(path & "\zeit")
        ko = My.Computer.FileSystem.ReadAllText(path & "\ko")
 
 
        TextBox7.Text = zeit
        TextBox13.Text = ko

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)
            Next i
        End With
 
        XL.ActiveWorkbook.Close()
        XL.Quit()
 
        XL = Nothing