Hola Sandino,
Por lo que veo el fallo creo que está en el nombre del archivo, prueba a sustituir esta linea ...
Código:
Response.AddHeader "Content-Disposition", "attachment; filename=" & archivo
Otra cosilla que imagino que no tienes mal en el código... en el primer IF no tienes un THEN
Ya nos contarás
. Un saludo.