كيف أقرأ آخر قيمة في ملف نصي ؟

Dim tmp As String, lasttxt As String
Open "c:\file.txt" For Input As #1
Do Until EOF(1)
DoEvents
'
Line Input #1, tmp
'
Loop
lasttxt = tmp
MsgBox "آخر سطر هو  : " & lasttxt
Close #1
End Sub