Come scritto da titolo..

Inutile dire che stiamo parlando di fso

Set textStream = FSO.CreateTextFile(percorso & NomeFile1, false, False)

if Err.Number = ??? che cosa?