Hola cobein, parece andar todo bien, si recuerdo que vos havias echo otro dos mudulos para esto, y eran lineales creo que andaban bien, yo por lo general utilizo
Set HtmlDOC = CreateObject("htmlfile_FullWindowEmbed")
HtmlDOC.body.innerhtml = sHTML
pero bueno solo se pude hacer con el body, hay una forma de hacerlo completo con el head y script ulitzando document.write, pero si hay un error de script, salta el cartel y deja de funcional, por el momento lo que queria, lo solucione con un par de instr, left etc.
Saludos.