ник: Анатолий (Киев)
И в FSO будет работать, если указать ForAppending вместо ForWriting.
Почему a.Write, а не a.WriteLine?
ЗЫ. Я предпочитаю пользоваться встроенными средствами VBA (как во втором вашем примере).
Там и возможностей больше, и никакой зависимости от внешних библиотек.
У .OpenTextFile единственное преимущество - может работать с Unicode файлами. Но это еще нужно придумать, где применить. 