Option Explicit Dim objFileSystem Dim objStream Dim strLine Dim arrFields Dim strMessage Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objStream = objFileSystem.OpenTextFile(Left(WSH.ScriptFullName,Len(WSH.ScriptFullName) - Len(WSH.ScriptName)) & "\CSV_TEST.csv", 1) Do Until objStream.AtEndOfStream strLine = objStream.ReadLine arrFields = Split(strLine,",") strMessage = strMes