Pessoal consegui inserir os dados dos textsboxes no flexgrid. No entanto, não estou conseguindo somar os valores da última coluna. Estou utilizando o seguinte código mas está aparecendo saldo zerado. Vejam o que está errado.

 

total = 0
For x = 0 To MSFlexGrid1.Rows - 1
    MSFlexGrid1.Row = x
    total = total + Val(MSFlexGrid1.Text) 'Acho que deve ser aqui
    'vai somando valor por valor
Next
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 0
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = total

Tem certeza que está usando um listview? Pelo nome do objeto parece um flexGrid

Não não estou usando o Msflexgrid mesmo.

 Dim tot As Currency    ' olha aqui amigo o que te disse no forum, basta mudar
                                ' o tipo desta variável, jamais pode ser Integer.
    For i = 1 To Key
        tot = tot + MSFlexGrid1.TextMatrix(i, 4)
    Next i

    txtnp.Text = format(tot"###,##0.00")