Writting An Array into a File

Dim g_objFSO:Set g_objFSO = CreateObject("Scripting.FileSystemObject")
outputArr = ReadFileToArray("c:\InboundRules.csv")
For i= 0 To UBound(outputArr)
WScript.Echo outputArr(i)
i=i+1
Next
WScript.Quit(0)

Function ReadFileToArray(strFile)

Dim l_outputArray(),rowCount,ts
rowCount= 0
    intFieldCount = 0
    intStart = 1

Set ts = g_objFSO.OpenTextFile(strFile,1,True)
Do While Not ts.AtEndOfStream


strLine=Split(ts.ReadAll,vbCrLf)

Loop
ts.Close
ReadFileToArray = strLine



End Function