Como colocar valo monetário em um MSFlexGrid Editavel

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