Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Users\User1\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close