Leggere valori di una riga di ListView

Dim Conto As Long = ListView1.Items.Count - 1
Dim MyArr(Conto, 3) As String
Dim asd As ListViewItem
Dim LI = ListView1.SelectedItems
Dim I As Long

For Each asd In ListView1.Items
Debug.Print(asd.SubItems.Item(0).Text & "|" & asd.SubItems.Item(1).Text & "/" & asd.SubItems.Item(2).Text)
MyArr(I, 1) = asd.SubItems.Item(0).Text
MyArr(I, 2) = asd.SubItems.Item(1).Text
MyArr(I, 3) = asd.SubItems.Item(2).Text
I = I + 1
Next