compile error can't find project or library

[redwert]

Вот собственно такая ошибка "can't find project or library". Компилятор останавливается на второй строчке:

Function ReadTXTfile(ByVal filename As String) As String
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function

В References включена библиотека Microsoft Scripting Runtime.
Scrrun.dll зарегестрирована
На компе стоит свежая установка лицензионной windows 7 home and buisnes и лицензионный office2010

Помогите пожалуйста, уже не знаю какие варианты пробовать.

[EducatedFool]

Вообще-то, все верно в коде, ошибка вылетатть не должна.

Желательно ещё первой строкой добавить On Error Resume Next
на случай, если считываемый файл будет пустой.

Ищите проблему в другом месте.
Или прикрепите файл Excel с кодом, вызывающим ошибку.
(возможно, где-то переменные неправильно объявлены)

В References включена библиотека Microsoft Scripting Runtime

это совсем необязательно

[The_Prist]

Ошибка - Cant find Project or library