Check Excel CSV files

Function checkCSV(getThisFile)    Const ForReading = 1    counter = 0        Dim objFSO , objTextStream , strText , strFileName, output        strFileName = Server.MapPath(getThisFile)        Set objFSO = Server.CreateObject('Scripting.FileSystemObject')    Set objTextStream = objFSO.OpenTextFile(strFileName , ForReading , False)        If not objTextStream.AtEndOfStream Then        Do While not objTextStream.AtEndOfStream            strText = objTextStream.ReadLine            arrText = split(strText, ';', 9)                        if arrText(0) = Request.Form('id') then                checkCSV = arrText            end if                        counter = counter + 1        Loop    End If        objTextStream.Close    Set objFSO = Nothing    Set objTextStream = Nothingend Function