Hola, dependiendo del contenido del fichero creo que vas a tener algunos problemas, pero esto puede ser la primera idea:
El proyecto de este ejemplo necesita un Command1 y un TextBox multilinea que en principio recibirá todo el contenido. Recuerda que el TextBox tiene limites de capacidad y si lo excedes, deberas utilizar un RichText
Private Sub Command1_Click()
' Debes cambiar aqui el nombre del fichero a cargar
Text1.Text = FicheroCompleto("C:\TuFichero.htm")
End Sub
La siguiente Función te devuelve el contenido del fichero completo que le indicas y en el Sub anterior lo que hace mos es volcar el contenido del fichero en el TextBox
Código vb:
Ver originalPrivate Function FicheroCompleto(Fichero As String) As String
Dim Numero As Integer
Numero = FreeFile
Open Fichero For Binary As #Numero
FicheroCompleto = String(LOF(Numero), " ")
Get #Numero, , FicheroCompleto
Close #Numero
End Function
De este modo ya tienes el fichero completo en pantalla e incluso podrías modificarlo directamente sobre el TextBox o RichText y después guardarlo de nuevo integramente, teniendo cuidado de no machacar las etiquetas.
El problema que puedes encontrarte por alguno HTM que he cargado es que por ejemplo no todos los <body> empiezan así, alguno por ejemplo puede ser <body background ....> entonces creo que esto te lo puede complicar algo o bastante.
Saludos