seteo de decimales y separador de miles

[manuysussemillas]

Hola coleguis, aquí os dejo este código para decimales y separador de miles, se necesitan tres textbox y un commanbutton, espero que os haya servido de ayuda.

Option Explicit



Private Sub Command1_Click()

Text1.Text = CCur(Text2) + CCur(Text3)
Text1.Text = Round(Text1.Text, 2) ' dos decimales, la función round nos redondea 'el número en caso de que en la suma sean más de dos decimales.
Text1.Text = Format(Text1.Text, "##,####.##") 'separador de miles, para contar
' millones jajjja

End Sub