Function Call for write to a Text File

Function AppendtTextFile(strFileName, strLine)

Dim objFS

Const ForAppending = 8

' create the file system object

Set objFS = CreateObject("Scripting.FileSystemObject")

' open/create the text file

Set objFile = objFS.OpenTextFile(strFilename, ForAppending, True)

' write the line

objFile.WriteLine strLine

' close the file

objFile.Close

End Function '

AppendtTextFile