[SendMessage]

То же самое - весь файл читаем в массив, массив просматриваем с конца. По идее, этот способ должен быть многократно быстрее. »

Еще быстрее, если разделителем массива взять ":нужное событие". Тогда берется просто предпоследний элемент массива и парсится.
Но самый быстрый способ в данном конкретном случае такой:

Код:

Option Explicit

Const ForReading = 1

Dim LogFile
Dim strText

LogFile = "C:\0001\0001.txt"

With WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile, ForReading)
  strText = .ReadAll
  .Close
End With

WScript.Echo Mid(strText, InStrRev(strText, "]:нужное событие") - 9, 9)

WScript.Quit 0