Si bueno es mejor que las a variables les asignes un textbox
si las estas incrementando con un timer
dim a as intenger
private sub form_load()
a=text1.text
ens sub
private sub timer1_timer()
text1.text=text1.text+1
end sub
eso es una solucion rapida a al text le quitas lo que trai y en la propiedad text le pones 0 por que si no truena