Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.OpenTextFile("C:\output.txt", 8, True)

strLine = "test"

objOutFile.WriteLine strLine