mshflexgrid, centavos não estão somando

Estou somndo uma coluna de um mshflexgrid, mas os centavos não estão somando, o q estou fazendo de errado?

'SOMAR DEBITO
MSHCONTA.Col = 9
DEBITO.Caption = "0"
For i = 1 To MSHCONTA.Rows - 1
    MSHCONTA.Row = i
    DEBITO.Caption = Val(DEBITO.Caption) + Val(MSHCONTA.Text)

Next

'SOMAR CREDITO

CREDITO.Caption = "0"
MSHCONTA.Col = 10
For i = 1 To MSHCONTA.Rows - 1
    MSHCONTA.Row = i
    CREDITO.Caption = Val(CREDITO.Caption) + Val(MSHCONTA.Text)

Next

TOTAL.Caption = Format(CREDITO.Caption - DEBITO.Caption, "##,##0.00")
If TOTAL.Caption < 0 Then
  TOTAL.ForeColor = vbRed
  Else
  TOTAL.ForeColor = vbBlue
  End If