Como sumar filas de un MSFlexgrid1?

[zxs23]

Tengo el codigo para sumar todos los items de un flexgrid en una caja de texto, pero ahora solo quiero sumar los item de tipo B, como puedo resolverlo?

Código:

Dim vTotal
  For i = 1 To grilla.Rows - 1
     If grilla.TextMatrix(i, 4) <> "" Then
        vTotal = vTotal + CDbl(grilla.TextMatrix(i, 4))
  End If
  Next
  txtTotal = vTotal

He intentado de varias formas pero no he podido, como veran debe tomar los datos directamente del grid.

[seba123neo]

Hola, pregunta despues si es de tipo B...algo asi:

Código vb:

Dim vTotal
   For i = 1 To grilla.Rows - 1
      If grilla.TextMatrix(i, 4) <> "" Then
         If grilla.TextMatrix(i, 5) = "B" Then
            vTotal = vTotal + CDbl(grilla.TextMatrix(i, 4))
         End If
      End If
   Next
   txtTotal = vTotal
 

saludos.

[zxs23]

oks, ya logre que funcione, saludos