Grazie optime per la risposta, ma la situazione non cambia scambiando le due righe
a.close
Set a = fs.CreateTextFile(path, True)
e neanche eliminando il primo a.close.
Spero che si possa trovare una soluzione.

lanvoel