Добрый день.  
 
Ниже решение.    
Это "рыба":  
!!! НЕ ЗАБУДЬТЕ ПРОСТАВИТЬ СВОЙ ПУТЬ К HTML!!  
функция создаёт новый файл с именем "рекодировка.html"  
 
Sub RecodingHTML()  
Dim TextLine As String  
Dim CharSetPos As Integer  
Open "C:\кодировка.html" For Input As #1  
Open "C:\рекодировка.html" For Output As #2  
Do While Not EOF(1)  
Line Input #1, TextLine  
If InStr(1, TextLine, "<meta http-equiv=Content-Type content", _  
       vbTextCompare) > 0 Then  
  CharSetPos = InStr(1, TextLine, "charset=Windows-1254", vbTextCompare)  
  If CharSetPos > 0 Then  
    ' заменим чарсет на Кирилицу: Windows-1251  
    Mid(TextLine, CharSetPos, Len("charset=Windows-1254")) _  
      = "charset=Windows-1251"  
  End If  
End If  
Print #2, TextLine  
Loop  
Close #2  
Close #1  
End Sub  
 
p.s. TIP! напоминаю, что если на любом сообщении с кодом на данном форуме нажать "[ответить с цитированием]" - то код получится отформатирован так, как его вставили в форум (движок форума удаляет ведущие пробелы в начале строки.. ;-((
Интересно, хоть когда-нибудь движок форума поменяют?!!! ;-(