Sacar datos de un ListView

[fesero]

Ejemplo que uso y funciona. Seleccionas al que queres y tambien se pone en negrita la fila seleccionada.

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim g As Variant, i As Integer, l As Integer, j As Integer
'#### toma de datos en una variable y lo podes usar donde quieras
ilAño = Int(ListView1.ListItems(Item.Index).Text)
iMes_t = ListView1.ListItems(Item.Index).SubItems(1)
iSmecV = (ListView1.ListItems(Item.Index).SubItems(5))
g = Item.Index
'#############
With ListView1
'Saca la negrita al item previamnete Seleccionado
For l = 1 To .ListItems.Count '- 1
.ListItems(l).Bold = False
For j = 1 To .ColumnHeaders.Count - 1
.ListItems(l).ListSubItems(j).Bold = False
Next
Next
End With

With ListView1
'Poner en negrita item Seleccionado
.ListItems(g).Bold = True
For i = 1 To .ColumnHeaders.Count - 1
.ListItems(g).ListSubItems(i).Bold = True
Next i
End With
End Sub