Toplam Almada Hata

[HD1975]

Private Sub CommandButton9_Click()
For i = 1 To ListView1.ListItems.Count
Select Case ListView1.ListItems(i).Text
Case Is = ComboBox9.Text
nkttopla = nkttopla + CDbl(ListView1.ListItems(i).ListSubItems(5).Text)

End Select
Next i
TextBox22.Value = nkttopla
End Sub


Yukarıdaki kodda "For i = 1 To" Kısmına 2 yazdığım zaman ikinci sütuna göre
hesaplama yapmıyor, döngüde ne gibi değişilkil yapmam gerek acaba ?

Saygılar