Sub LeerListView()
Dim IndiceSeleccionado As Interger
Dim Valor1 As String

IndiceSeleccionado = ListData.SelectedItem.Index
Valor1 = ListData.ListItems(IndiceSeleccionado).SubItems(1)
'...y asi con todos los valores

End Sub