[megaloman]

matson, Не понимаю, что Вы хотите в конце концов получить, но вот вариант (тестировал на файле, созданном на основе приведенного Вами текста):

Код:

File_In = "Z:\Box_In\Логфайл.log"
Find_String = "** Задание ""BackGTD"" завершено."

Set FSO = CreateObject("Scripting.FileSystemObject")

Set NFile = FSO.OpenTextFile(File_In, 1, False)                     '  Открываем текстовый файл
S = NFile.ReadAll
NFile.Close

MsgBox Last_String(S, Find_String)

Function Last_String(All_S, Find_S)
    i_Find_S = InStrRev(All_S, Find_S)
    If i_Find_S > 0 Then
        NFind_1 = InStrRev(All_S, vbCrLf, i_Find_S)
        NFind_2 = InStr(i_Find_S, All_S, vbCrLf)
        Last_String = LTrim(RTrim(Replace(Mid(All_S, NFind_1, NFind_2 - NFind_1 + 1), vbCrLf, "")))
    Else
        Last_String = ""
    End If
End Function

Не вижу смысла получать массив.

[Iska]

нет никакого смысла использовать бд для такой простой задачи, не люблю плодить сущности. »

Пока лог в сотни килобайт — да, возможно. Когда в сотни мегабайт — тогда стоит работать с ним либо как с базой данных, либо задействовать LogParser.