[Iska]

Код: On Error Resume Next 'Запускаем обработчик ошибок Err.Clear 'Очищаем все ошибки »

Err.Clear здесь лишнее — до On Error Resume Next все возникающие ошибки вызывают останов скрипта (и, возможно, вызов отладчика), а после On Error Resume Next никакой ошибки до Вашего Err.Clear возникнуть в принципе не может.

Т.е. просто проверять нет ли ошибок после открытия файла )) Думаю оно более универсально? »

Можно. Только не забудьте:
а) перед открытием проверить, существует ли этот файл в принципе, дабы не путаться в видах ошибок (коллега megaloman, впрочем, реализовал сию проверку зараз внутри функции);
б) вернуть стандартную обработку ошибок (On Error Goto 0) сразу после открытия файла и обработки ошибок.

megaloman, можно и просто:

Код:

    AllTxt = iFile.Read(Len("{\rtf"))
    iFile.Close

    If Not StrComp(AllTxt, "{\rtf", vbTextCompare) = 0 Then
        RTF = 0
    End If