codice:
if not FSO.FileExists(percorso & NomeFile1) then

scrivo=false
else

'chiedi conferma (forse usando la funzione msgbox però boh) e poi
msgbox...

if vuole_scrivere then scrivo=true

end if


if scrivo then
Set textStream = FSO.CreateTextFile(.....
end if