Tratamento de erro

eu estou tentando fazer uma rotina que possa me retornar varios erros durante seu processo e para cada ponto que der o erro queria que ele pulasse para determinada parte do programa. exemplo

for i = 0 to 100 step 1 on error goto erro1 comandos ....nexterro1:for i = 0 to 100 step 2 on error goto erro2 comandos ....nexterro2:for i = 3 to 100 step 3 on error goto erro3 comandos ....nexterro3:msgbox "ERRO"

no meu programa esta exatamente nesse formato, porem quando tem erro no segundo for ele não faz o que foi dito no erro2, mas continua a execução gerando o fechamento do programa.

alguem tem alguma ideia de como posso resolver esse problema?

vlw