The better solution...and cleaner one is:
Dim dblTotal as Double = 0
Dim dblTemp as Double
For Each lvItem As ListViewItem In ListView1.Items
If Double.TryParse(lvItem.SubItems(2).Text, dblTemp) Then
dblTotal += dblTemp
End If
Next
TextBox1.Text = dblTotal
But you have to know that the first column is also a subItem so the code above would sum up the values in column 3. I also threw in the TryParse method because you need to check and make sure that there are actually doubles in that column. (Of course if it's databound and the column is a Double column, then you wouldn't need that.