Set objFSO=CreateObject("Scripting.FileSystemObject")

' Write to a file
outFile = "c:\path\to\file.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "test" & vbCrLf
objFile.Close