Prova cosi',l'ho provata su Vb e a me funziona.

Dim maxvalue As Double
Dim minvalue As Double
Dim Cont As Integer
Dim Numero As Double

maxvalue = (ListView3.ListItems(1).SubItems(2))
minvalue = (ListView3.ListItems(1).SubItems(2))



For Cont = 2 To ListView3.ListItems.Count - 2
Numero = (ListView3.ListItems(Cont).SubItems(2))

If Numero > maxvalue Then
maxvalue = Numero
End If
If Numero < minvalue Then
minvalue = Numero
End If
Next Cont

MsgBox maxvalue
MsgBox minvalue

Nella variabile numero io ho messo il contenuto della colonna N2 della listview.Tu dovresti inserire il valore della funzione per recuperare il valore dell'anno con il numero della relativa colonna dove lo visualizzi