usa funciones para no tener que repetir el code osea

commad1= text1.text=1
command2=text1.text=2

podes usarlo asi:

sub funcion(valor as integer)
 text1.text=valor
end sub

command1= funcion 1
command2= funcion 2
 
y listo te ahorras muchas lineas de codigo repetitivas en un proyecto