Como sumar filas de un MSFlexgrid1?

[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.