в модуле
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub subLog(strLog As String)
On Error Resume Next
If strLog <> "" Then
Open "c:\testfile.txt" For Append As 2
Print #2, Now() & vbTab & strLog
Close #2
Err.Clear
End If
End Sub
-----------------в форме
ссылку на микросовт скриптинг рунтайм не забудь
Private fso As New FileSystemObject
Private File As File
Private txt As TextStream

Private Sub Command1_Click()
Dim MyText As String
Set File = fso.GetFile("c:\WF_SME_inc_20090305_202923.log") 'берем файл где искать
Set txt = File.OpenAsTextStream(ForReading)
Do While Not txt.AtEndOfStream 'пока не будет конец текстового потока
MyText = txt.ReadLine
if (MyText Like "*Ошибка выполнения скрипта*" )=true then sublog MyText 'пишем строку где есть совпадение с Ошибка выполнения скрипта
Loop
txt.Close 'закрываем текстовый поток
subLog " поиск завершен"
end sub

вот как то так у меня работает