Listing 1: The WriteIt Function

Function WriteIt(aStr,strOP_F)
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile(strOP_F, ForAppending, True)
  f.WriteLine aStr
  f.Close
  Set f = Nothing
  Set fso = Nothing
End Function