ayuda para poner signo de pesos y decimales

[Monimo]

Iniciado por nauta85

Private Sub TextBox3_Change()
Range("C7").Select
importe = FormatCurrency(importe, 2)
ActiveCell.FormulaR1C1 = TextBox3.Text
End Sub

Pues no te funciona porque , estas convirtiendo el importe a una cantidad con signo de pesos, pero nunca escribes eso. Por el contrario despliegas lo que tiene Textbox3 que no es con el signo de pesos
importe = FormatCurrency(textbox3.text, 2)
activecell.formularqc1= importe

Asi debe ser .....