If Not ListBox1.SelectedIndex < 0 Then
            ListView.Items.Clear()

            If Not File.Exists(My.Application.Info.DirectoryPath & "\Log.txt") = True Then
                My.Computer.FileSystem.OpenTextFileWriter(My.Application.Info.DirectoryPath & "\Log.txt", True)
            End If

            Dim sr = New StreamReader(My.Application.Info.DirectoryPath & "\Log.txt")
            Dim LogDaten As String()
            LogDaten = sr.ReadToEnd.Split(ControlChars.CrLf)
            sr.Close()

            For i As Integer = 0 To LogDaten.Length - 1
                If Not LogDaten(i).Length <= 1 Then
                    Dim EinzelneDaten As String() = LogDaten(i).Split("~")
                    If EinzelneDaten(0) = ListBox1.SelectedItem Then

                        Dim sr2 = New StreamReader(My.Application.Info.DirectoryPath & "\Projects\" & EinzelneDaten(0) & "\Log.txt")
                        Dim LogDaten2 As String()
                        LogDaten2 = sr2.ReadToEnd.Split(ControlChars.CrLf)
                        sr2.Close()

                        Dim EinzelneDaten2 As String() = LogDaten2(i).Split("~")

                        If EinzelneDaten(0) = ListBox1.SelectedItem Then
                            For j As Integer = 1 To LogDaten2.Length - 1
                                SchreibeEinträge(EinzelneDaten2(0), EinzelneDaten2(1), EinzelneDaten2(2), EinzelneDaten2(3), EinzelneDaten2(4))
                            Next
                        End If
                    End If
                End If
            Next
        End If