Не могу прочитать файл htm как текст средствами VBA + прошу проверить пару моих функций.

Формулировка задачи:

Здравствуйте!
Немного предистории – я врач, делаю макрос для парсинга данных УЗИ и вставки измерений в протокол, т.к. переписывать вручную долго и не правильно.
Предидущая версия работала на Apache OpenOffice 4 (сам писал на OOBasic), сейчас работаю в другом месте – есть лицензионный MS Office, поэтому решил переделать и улучшить старую версию (тем более что сканер другой и все равно старый не работает).
К чему написал – я не занимаюсь программированием профессионально, но в доступе в моем городе спецов кто поможет найти не могу, поэтому часть вопросов будет для здешних старожилов смешная.
Собственно сабж – сканер выдает данные в формате htm, я с помощью подключенной библиотеки MS HTML Object Library выдергиваю текст, и собственно передаю строку в парсер. Но почему-то прочитать сам файл htm в строку я не могу.
Даже если открыть блокнотом и сохранить как txt. А вот если создать пустой txt, открыть блокнотом htm выделить и скопировать все в txt и сохранить, читает отлично.
Читаю строку следующей функцией:

Function GetText(sFile As String) As String
   Dim nSourceFile As Integer
   Dim sText As String
   Close    
   nSourceFile = FreeFile
   Open sFile For Input As #nSourceFile
   sText = Input$(LOF(1), 1)
   Close
   GetText = sText
End Function

Во вложении оба тестовых файла htm и txt полученный методом копирования в блокноте.

Решение задачи: «Не могу прочитать файл htm как текст средствами VBA + прошу проверить пару моих функций.»

textual
                            Листинг программы 
                        

                            Function GetText(sFile As String, sCharset As String) As String
    Dim oADODBStream As ADODB.Stream
    Set oADODBStream = New ADODB.Stream
    oADODBStream.Charset = sCharset
    oADODBStream.Type = adTypeText
    oADODBStream.Open
    oADODBStream.LoadFromFile (sFile)
    GetText = oADODBStream.ReadText
    oADODBStream.Close
    Set oADODBStream = Nothing
End Function

                        