Reading CSV text files

I would do it this way

Sub testreader()
Dim FileNo As Integer
Dim CurrentLine As String
Dim File As String
Dim Msg As String
Dim CurrentList As New Collection
Filename = ThisWorkbook.Path & "\Book1.csv"
FileNo = FreeFile
 Dim lRow As Long
Open Filename For Input As FileNo
Do While Not EOF(1)
Debug.Print Loc(1)
  Line Input #1, CurrentLine
  If CurrentLine <> "" Then
    CurrentList.Add CurrentLine
  End If
Loop
For e = 3 To CurrentList.Count Step 2
 lRow = lRow + 1
Cells(lRow, 1).Value = CurrentList.Item(e)
Next
Close #FileNo
End Sub

I think this approach is easier for a novice to understand.
Note the texttocolumns function can be used manually from the spreadsheet

The textToColumns can be preset to state what sort of data is in which columns. I have left this on automatic. If it causes a problem you will need to post some data and I (or somone) will help you with that.

Sub testreader()
Dim FileNo As Integer
Dim CurrentLine As String
Dim File As String
Dim Msg As String
Dim i As Integer
Dim bUseLine As Boolean
Dim rng As Range
Dim Filename As String
 
Filename = "C:\Users\Harskey\Desktop\Book1.csv"

FileNo = FreeFile
 
Dim lRow As Long
lRow = 2
Set rng = Cells(lRow, 1)

Open Filename For Input As FileNo
For i = 1 To 3  'ignore lines 1-3
    Line Input #FileNo, CurrentLine
Next i

bUseLine = True
Do While Not EOF(FileNo)
  Line Input #FileNo, CurrentLine
    If bUseLine Then        'ie if bUseLine=true
        If CurrentLine <> "" Then
          Cells(lRow, 1).Value = CurrentLine
        End If
        lRow = lRow + 1
    End If
    bUseLine = Not (bUseLine)   'toggles TRUE to FALSE and FALSE to TRUE
  
Loop
 
Close #FileNo

Set rng = rng.Resize(lRow - 1) 'minus one less than the start value
    rng.TextToColumns Destination:=rng, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, Comma:=True
End Sub

It depends on what and why you are trying to do it.

The simplest way is to use the same code as below to read through the file and just keep the last value.
The fastest way is more complicated. You open the file in block mode and read and interpret the last blocks. It helps to know what the maximum line length is. Because of the variations this is more complex to programme.

Note: if you are just trying to keep the last line of a file you are reading anyway the code below can be altered to make this available.

Yep thats why I use the collection you can use the data again
Just go to the last value in the collection

That might be a lot of data to store, Pike, unless you have good reason to store it.

True, I usually extract all the good stuff , do the calx and just store the results