https://drive.google.com/open?id=18LQ0lRNT4RraOkkT2T88tlnq7lMz6gy1

TextBox aparezcan en Miles y en Moneda

Cargar todas las Imágenes, funciona perfectamente. 

Muy cordialmente solicito que TextCantidad en “Miles”  , TextVr_Unitario  y TextVr_Parcial (en Fomato de $)

 Me enredé con este código. Por favor darme una mano. Gracias 

@EMIRO ERAZO , aparte de que para lo que pides no hace falta subir todo, incluido imágenes, la solución es jugar con la función "Format"

TextCantidad = Format(Range("E" & fila).Value, "$ #,##0.00")

Te dejo el fichero, a ver si es lo que pides

Presupuesto Vía Ferrea.xlsm

Muchas gracias Haplox . Le hice un pequeño cambio: porque Formato de Cantidad quedó en Formato de Moneda  y es Formato de Miles

Tema Solucionado   

TextCantidad = Format(Range("E" & fila).Value, "#,##0.00")