Visual Basic - Problema con listview

cuando intento poner algo en el ultimo subitem(5) me dice :
el indice esta afuera de los limites

esto es lo que yo tengo :
For d = 1 To Val(Label1.Caption)

FrmPrincipal.LW1.ListItems.Item(d).ListSubItems.Item(5).Text = "$" & Val(Mid(FrmPrincipal.LW1.ListItems.Item(d).ListSubItems.Item(2).Text, 2)) * Val(FrmPrincipal.LW1.ListItems.Item(d).ListSubItems.Item(4).Text)

Next d

Ten en cuenta que si tienes 5 filas la primera es 0 y la última 4