Ver originalValor = 237.067Valor = Val(Fix(Valor) & "." & Left(Split(CStr(Valor), ",")(1), 2))MsgBox Valor