Open App.path & "\ FileName.txt" For Input as #1
Do until not EOF(1)
Line input #1, Temp
Counter = LstTemp.ListCount
2ndlast = LstTemp.List(Counter-2)
Last = LstTemp.List(Counter -1)
DBVal = 2ndLast - Last
Not tested - Thats all i could come up with let me know if it works
You need to read the text file using the Microsoft Scripting Runtime Libary or
just use the older file function Line Input to loop through the lines of the text file.
If you use the Scripting Runtime Library, then you'll need to use the TextStream Object using its ReadLine function to loop through the lines of the text.
Use a loop to read and keep track of the lines storing the individual lines in a string array. If you declare an integer variable to keep track of the number of lines read in the loop, then you can use its last value to determine the last line read. And the previous value will be one less.
The previous post shows how to use Line Input. But you'll need to add code to save the individual lines of code so that you can use the saved values to enter into your MySQL database.