Dim text As String = Nothing 'IstListe.SelectedItems.Item(k)
        For Each lvi As ListViewItem In Me.IstListe.SelectedItems
            text = lvi.Text
            Dim split As String() = text.Split(New [Char]() {" "c})
            For i = 0 To split.Length - 1
                '// [...]
            Next
        Next

        Dim text As String = Nothing 'IstListe.SelectedItems.Item(k)
        For Each i As Integer In Me.IstListe.SelectedIndices
            text = Me.IstListe.Items(i).Text
            Dim split As String() = text.Split(New [Char]() {" "c})
            For i = 0 To split.Length - 1
                '// [...]
            Next
        Next