[Iska]

А что говорит сразу после выхода из сна простая проверка существования файла:

Код:

If objFSO.FileExists("путь\файл.log") Then
    MsgBox "File [путь\файл.log] found"
Else
    MsgBox "File [путь\файл.log] not found"
End If

Если сразу — не найден, а спустя время — доступен, то, может, поскольку интервал у Вас небольшой, при недоступности файла просто пропускать чтение до следующего вызова обработки:

Код:

Sub GetData()
    …
    If objFSO.FileExists("путь\файл.log") Then
        Set objFile = objFSO.OpenTextFile("путь\файл.log", 1)
        …
        …
        objFile.Close
    End If
    …
End Sub

?

[Morpheus]

сразу — не найден, а спустя время — доступен »

Спасибо большое! Пришлось повозиться, всё заработало когда добавил:

Код:

    If objFSO.FileExists("путь\файл.log") Then
        Set objFile = objFSO.OpenTextFile("путь\файл.log", 1)
        …
        …
        objFile.Close
Else
Data = "--- --- --- --- ---"
    End If