Formatação do mshflexgrid com Problema

Pessoal, o que ha de errado aqui?

'

Dim linha As Integer, coluna As Integer

For linha = 1 To .Rows - 1

For coluna = 1 To .Cols

If (coluna = 4) Then

.TextMatrix(linha, coluna) = FormatCurrency(.TextMatrix(linha, coluna))

End If

Next

Next

Na coluna 4 quero formatar os valores para Currency (R$) acontece que quando mostra os valores ela esta transformado para outro valor. Por exemplo: de R$ 1,20 ela mostra R$ 12,00 ..... :wacko:

Como faço para resolver isto? :mellow:

Obrigado.

A sim, como faço para encerrar os topicos abertos e que ja foram resolvidos ? http://forum.imasters.com.br/public/style_emoticons/default/upset.gif