VBS tutorial - text file and batch creating

Set fs = CreateObject("Scripting.FileSystemObject")
a.WriteLine ("...............")

Set fs = CreateObject("Scripting.FileSystemObject")
a.WriteLine ("echo it works!")
a.WriteLine ("pause")
a.Close
msgbox"...."
a.Close