Como colocar valo monetário em um MSFlexGrid Editavel

[fsfernando 0]

Olá!O codigo de deixar o Grid eh editavel eh esseIf KeyAscii = 8 Then If msfImp.Text = "" Then Exit Sub msfImp.Text = Format$(Left(msfImp.Text, Len(msfImp.Text) - 1), "R$ ###,###,##0.00") Exit SubEnd IfIf KeyAscii = 13 Then KeyAscii = 0 If Len(msfImp.Text) = 10 Then Exit Sub msfImp.Text = Format$(UCase(msfImp.Text & Chr(KeyAscii)), "R$ ###,###,##0.00")eu colokei a forunção Format$ para oq o usuario digitar ficar em valor menatarioele fica monetario...mas o valor fica estranho...fica sempre inteiro e nao tem como apagar.alguem ajuda ae

[Luizgrs 0]

Tenta formatar assim:

msfImp.Text = "R$ " & FormatNumber(eval(valor), 2, vbTrue)

[fsfernando 0]

mas nesse script q mandei aonde eu coloco issocomo eu encaixo ?

[Luizgrs 0]

Substitui:

msfImp.Text = Format$(Left(msfImp.Text, Len(msfImp.Text) - 1), "R$ ###,###,##0.00")

por:

msfImp.Text = "R$ " & FormatNumber(eval(valor), 2, vbTrue)

[fsfernando 0]

esta dando erroIf KeyAscii = 8 Then If msfImp.Text = "" Then Exit Sub 'msfImp.Text = Left(msfImp.Text, Len(msfImp.Text) - 1) msfImp.Text = "R$ " & FormatNumber(eval(valor), 2, vbTrue) NO EVAL ESTA DANDO ERRO!!! Exit SubEnd IfIf KeyAscii = 13 Then KeyAscii = 0 If Len(msfImp.Text) = 10 Then Exit Sub 'msfImp.Text = UCase(msfImp.Text & Chr(KeyAscii)) msfImp.Text = "R$ " & FormatNumber(eval(valor), 2, vbTrue)e no If KeyAscii = 13 Then KeyAscii = 0 eh diferente do primeiro...como eu coloco para ele ficar igual o do primeiro ??

[Luizgrs 0]

Ah...eu errei, eval é de asp.Muda de eval para val xD.

e no If KeyAscii = 13 Then KeyAscii = 0 eh diferente do primeiro...como eu coloco para ele ficar igual o do primeiro ??

Como assim?