Como somar coluna Listview com critério?

Amigos surgiu mais uma dúvida: Quero somar a coluna Subitems 7, observando que na subitems 3 tenham a palavra "ENTRADA". Na verdade é uma somase que observa se é Entradas.
Tenho a Sub abaixo, tentei alterar com base num tópico que achei na internet, mas não consegui.
Esta Listview1 está no FrmCaixaPesq......... Preciso citar isto também? Como é o correto?

Sub calcularEntradas()
Dim i As Long
Dim valor As Double
For i = 1 To ListView1.ListItems.Count

If ListView1.ListItems.Item(i).SubItems(3) = "ENTRADA" Then
valor = valor + CDbl(Me.ListView1.ListItems(i).ListSubItems(7))
End If
Next i
txtentradas.Text = valor
txtentradas.Value = Format(txtentradas, "R$ #,##0.00")