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.