Prueba esto a ver que tal



Private Sub Command1_Click()
Dim i As Integer

For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).SubItems(2) = ListView1.ListItems(i) + CDbl(ListView1.ListItems(i).SubItems(1))
Next

End Sub