Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("Yourfile.txt", 8, True) '8 for writing to end of file f.write YourString f.close