Cita:
Iniciado por Monimo 
Tambien existe la funcion "CDbl" esto te lo convierte a numero. Formatcurrency( CDbl(textbox7.text),2) te debe dar lo que quieres. No lo dejes hasta que te salga.
HOLA COMO ESTAS DE NUEVO GRACIAS POR LA AYUDA MIRA YA ME QUEDO ESTE QUE ME MANDASTE YA ME LO COMVIERTE A NUMERO, PERO SOLO COMVIERTE A NUMERO LO QUE ES EL IMPORTE, ME FALTA CONVERTIR A NUMERO LO QUE ES
LA CANTIDAD Y EL PRECIOU Y ADEMAS ME FALTA PONERLE EL SIGNO DE PESO MUCHAS GRACIAS SEGUIE INTENTANDO SALUDOS.
Private Sub TextBox2_Change()
Range("B7").Select
Cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2
Rem aqui pongo la multiplicacion haber que pasa
Importe = Cantidad * PrecioU
TextBox3.Text = Importe
End Sub
Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = TextBox3.Text