Создание и добавление в файл

Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", 2, True)
ts.WriteLine "Строка"
ts.Close