Прочитать последнюю строку в CSV файле

Sub Open()
 
 
Dim fs, objTextfile, Wscript
Set fs = CreateObject("Scripting.FileSystemObject")
Dim arrStr
 
Set objTextfile = fs.OpenTextFile("C:\file\MAG8000_296305H319_2020-03-14 0700.csv", 1)
 
 
Do While Not objTextfile.AtEndOfStream
arrStr = Split(objTextfile.ReadLine, ";")
SmartTags("tag_1") = arrStr(5)
SmartTags("tag_2") = arrStr(0)
 
Wscript.echo strWaarde1 & " " & strWaarde2
 
Loop
 
objTextfile.Close
Set objTextfile = Nothing
Set fs = Nothing
 
End Sub

CSV = "Test.csv"
With CreateObject("ADODB.Stream")
  .Open: .CharSet = "Windows-1251": .LoadFromFile CSV
  .Position = CreateObject("Scripting.FileSystemObject").GetFile(CSV).Size - Len(.ReadText(-2))*1.5
  LastLine = Split(Split(.ReadText, vbNewLine)(1), ","): .Close
End With
MsgBox LastLine(0) & vbLf & LastLine(5)

Option Explicit: Dim n, LStr
Const CSV = "Test.csv"
'———————————————————————————
With CreateObject("ADODB.Stream")
  .Open: .CharSet = "Windows-1251": .LoadFromFile CSV
  .Position = CreateObject("Scripting.FileSystemObject").GetFile(CSV).Size
  Do: .Position = .Position - 2 - n
    If .ReadText(1) <> vbLf Then n = 0 Else n = 2: LStr = .ReadText(-2)
  Loop Until Len(LStr): .Close
End With
LStr = Split(LStr, ",")
'———————————————————————————
MsgBox LStr(0) & vbLf & LStr(5)

Sub read()
Dim fso, f, field, MyZf
 
' Catch errors -- Fehler abfangen
 
 
' Create file object -- Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
SmartTags("filename2") = "C:\file\MAG8000_344305H329_2020-04-09 0702.csv"
Set f = fso.OpenTextFile("C:\file\MAG8000_344305H329_2020-04-09 0702.csv", 1)
 
 
' Read values till end of file -- Werte bis zum Dateiende einlesen
Do While Not f.AtEndOfStream 
    MyZf = f.ReadLine
Loop
field = Split(MyZf, ";")
    
SmartTags("tag_1") = field(0)
SmartTags("tag_2") = field(3)
SmartTags("tag_3") = field(6)
 
' Tidy up -- Aufraeumen
fso.Close
Set f = Nothing
Set fso = Nothing
 
End Sub

Set F = fso.OpenTextFile(???????, 1)

Sub LastFileName()
 
Dim Folder, BeginN, oCol, F, fso, field, MyZf
 
Folder = "C:\Users\Rabi\Documents\MAG8000 Data"
BeginN = "MAG8000_300205H319"
'————————————————————————————
Set fso = CreateObject("System.Collections.SortedList")
For Each F In CreateObject("Scripting.FileSystemObject").GetFolder(Folder).Files
   If StrComp(Right(F, 4), ".csv", 1) = 0 And InStr(F.Name, BeginN) = 1 Then fso.Add F.DateCreated, F
Next
    CreateObject("Shell.Application").ShellExecute fso.GetByIndex(fso.Count-1)   
    Set F = fso.OpenTextFile(???????, 1) '-здесь был путь к csv файлу но я пытался их заменить переменными,  но это не дало результатов
' Read values till end of file -- Werte bis zum Dateiende einlesen
Do While Not F.AtEndOfStream 
    MyZf = F.ReadLine
Loop
field = Split(MyZf, ";")
    
SmartTags("MaterialFromFile") = field(0)
SmartTags("PressureFromFile") = field(3)
SmartTags("TemperatureFromFile") = field(6)
 
' Tidy up -- Aufraeumen
fso.Close
Set F = Nothing
Set fso = Nothing
 
End Sub