Hola
Si no quieres decimales solo tienes que eliminar la parte de los 0-s, es decir:
Código:
Text1.Text = Format(Text1.Text, "##,##")
No entiendo a lo que te refieres con
me desordena los números, puedes poner un ejemplo de lo que te hace?
--Saludos--