Dim sHtml As String
sHtml=CambiarPagina(File.OpenInput(DirFicheroHtml, "FicheroHtml.html")) ' se supone que el fichero te lo has bajado y lo has dejado ahi
Dim TextWrite1 As TextWriter
TextWrite1.Initialize2(File.OpenOutput(DirNuevoHtml,"NombreNuevo.html", False),"Windows-1252") ' se salva en el mismo formato que se leyó
TextWrite1.Write(sHtml)
TextWrite1.Close
Sub CambiarPagina(In As InputStream ) As String
Dim sNews, sHtml As String
TextReader1.Initialize2(In, "Windows-1252")
sNews = TextReader1.ReadAll
' en sNews ya tienes la página html como string para editarla y cambiar lo que quieras por ejemplo en sHtml
' Vas dejando en sHtml el codigo que no cambia, y cuando quieras cambiar algo lo pones cambiado en sHtml
' ...........
' ...........
' ...........
' buscas y sustituyes
Return sHtml
End Sub