Creating and writing to a file:
 dim ival
 ival = int(filenumber)
 Dim fso, f, f1, fc, s
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.GetFolder(myId+myfolder)
 Dim TextStream
  Set TextStream=f.CreateTextFile(filename)
TextStream.Write(thedata)
 TextStream.Close