Sub CreateAfile
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:testfile.txt", True, True)
    a.WriteLine("This is a test.")
    a.Close
End Sub