buenas... hola como estan... como siempre uno obsecionado con eso de la programacion estuve intentando realizar una funcion que deberia funcionar pero... no funciona ahi les va:
esta funcion es llamada desde otra funcion

private sub otra_funcion()
on error goto error
if t=0 then
shell"c:windowsdx.exe",vbnormalfocus

else
end if
exit sub
ERror:
call checarerror ''''aqui hablo a mi otra funcion
end sub

private sub checarerror()
on error goto error
dim conta as string
conta="1"
DEnuevo:
select case conta


case 1: ''''aqui ya esta ecte cte ctc funcion y se va a
            conta=conta+1
            goto DEnuevo
case 2: hace lo mismo en
case 3:todos
case 4:los casos
case 5:lo mismo manda a goto de nuevo
case 6:salvo el ultimo caso que termina la funcion exit sub

end select
goto Denuevo
exit sub
error:
goto Denuevo
end sub
'''''''''''' el caso es que cuando lo hace solo hasta el caso 2 y luego regresa a la funcion que lo llamo.... y no acaba de correr todos los casos osea el 3,4,5,6 etc y pues no se por que  ayudemne si?

gracias

perdon.. estaba mal echo.... ya lo edite... lo que pasa entonces quedaria la etiqueta despues de establacer a conta="1" entonces por ese lado no hay problema... la situacion es que necesito que recorra el desde el primero hasta el ultimo caso entonces en cADA caso se va a aumentando un uno si era 1a 2 y 3 etc entoces entraria al caso 1 y 2 y 3 etc pero solo hace dos casos y de ahi sale del procedimiento y se va de nuevo de donde fue llamado osea al procedimiento otra_funcion y entonces no corre todos los casos...




Pd gracias entei por tormarte la molestia de revisar el codigo y perdon pero estaba mal editado(lo mal postee no es como el que esta en mi proyecto ) ahora ya lo corregi pero es de agradecerce que te tomes la molestia de revisar el codigo grax.. y espero me puedan ayudar con el codigo...  gracias

Mi pregunta es: ¿Como te das cuenta cuando pasa a la otra funcion?