Передать текст файла в процедуру

Март
Дата: 07.06.2004 17:57:03
Помогите. Не могу передать тело текстового файла в дргую процедуру для чтения. Выдает ошибку требуется объектю

Set fs = Application.FileSearch
With fs
'## Ищем файлы
.NewSearch
.LookIn = Nz(Me.txtDir.Value)
.FileName = Nz(Me.txtFilePattern.Value)
.SearchSubFolders = "False"
If .Execute() > 0 Then
'## Разбираем найденные файлы
For i = 1 To .FoundFiles.Count
ParseAVex .FoundFiles(i), file_isparsed 'Загрузка данных
Next i
End If
End With

Private Sub ParseAVex(thisfile As Variant, file_isparsed)
Set fst = CreateObject("Scripting.FileSystemObject")
Set f = fst.OpenTextFile(thisfile, 1, TristateFalse)
End Sub
Roma R
Дата: 07.06.2004 18:32:13
На какой строке выдает ошибку?
Переменные fs, fst, f где описываются (Dim Fs)?
Март
Дата: 08.06.2004 12:29:58
Спасибо. Не было ошибки. Это я глюканул под вечер.
Proga
Дата: 08.06.2004 12:35:15
Проснись родной, сейчас день.
Март
Дата: 08.06.2004 13:24:03
Whom how :)