Este codigo me suma sin problemas todas las entradas del listview depediendo lo que le ponga en SubItems(X)

con 1 me suma el valor 2 de la lista (ya que es 0, 1, 2) Pero si justamente quiero q me sume el primer valor de la lista, q es el 0, el subitem deberia ser 0. Pero me dice error. Y si le dejo el 1, me suma el 2do campo de la lista, q es correto ya que es 0, 1.

Alguna idea como puedo arreglar esto?

    Dim i As Long
    'Recorre todos los items y para sumar los SubItems
    For i = 1 To ListView1.ListItems.Count
        sumar = sumar + CDbl(ListView1.ListItems(i).SubItems(1))
    Next i
        txtDia0 = sumar

RESUMEN: neceisto q me sume cada valor de esas columinas en los txts negros de
abajo...