'On Error GoTo ErrHandler ' TODO: Add your code here ' final code On Error Resume Next Dim FolderName FolderName = "M100x" Dim FolderName1 FolderName1 = Trim (FolderName) 'ENSURE THAT FOLDER NAME CORRESPONDING TO WINDING SR NO IS CREATED AND CONTAINS THE FILE MeasLog.csv 'ENSURE THAT THE SAME WINDING SR NO IS ENTERED IN THE HMI FIELD D4502 Dim outputString Dim outputFile Dim inputFile Const ForWriting = 2 Const ForReading = 1 Set objFSO = CreateObject ( "Scripting.FileSystemObject" ) Set outputFile = objFSO.CreateTextFile( "F:\csv\" + "Logger.csv" , ForWriting, True ) outputFile.WriteLine FolderName1 Set inputFile = objFSO.OpenTextFile( "F:\csv\" + FolderName1 + "\MeasLog.csv" , ForReading) If Err.Number <> 0 Then MsgBox "Error No:" ...