sería algo así.
Dim total As Integer = 0
For i As Integer = 0 to ListView.Items.Count
total += CInt(ListView.Items(i).SubItems(ListView.Columns.Count - 1).Text)
Next
'ListView.Columns.Count - 1 porque es la ultima columna donde los tenes
'si fuera otra columna solo pones el indice, pero acordate que las columna
'inician a enumerarse desde 0 hasta el total - 1.