Dim text() As String
        text = Split(My.Computer.FileSystem.ReadAllText("C:\statussds.txt"), ( _
          ","))
        For Each wort As String In text
        Next
 
        'ListView
 
        With ListView1.Items
            Dim item As ListViewItem
            item = .Add(text(1)
            item.SubItems.Add(text(0))
            item.SubItems.Add(text(2))
            item.SubItems.Add(text(3))
            item.SubItems.Add(text(4))
            item.SubItems.Add(text(5))
         End With