Cita:
Iniciado por Avellaneda 
Tienes que formatear el número:
Text1.Text = Format(Numero, "Currency")
así lo pondrá en el formato que tengas en las propiedades regionales del sistema, si no es el mismo y quieres variarlo:
Text1.Text = Format(Numero, "$#,##0.00") 
no no funciono mmm
en donde lo tenia que meter
Private Sub text1_KeyPress(KeyAscii As Integer)
o
Private Sub form1_click()
porque ya intente los 2 y o me funciono
y si declare la variable numero porque no estaba declarada