Hola Gente del Foro. quería hacerles una consulta.
resulta que mediante una función obtengo el código fuente (HTML) de una página web
y copio ese código HTML a una Variable. pero resulta que el servidor es de "000.webhost.com" entonces al final del código agrega unas lineas de un Script.
Como puedo hacer para "Limpiar" de la variable esas lineas y que me quede en limpio el código Fuente Original?
Ejemplo:
este es un código extraído de la web en "000webhost.com"

Hola Mundo!
<!-- www.000webhost.com Analytics Code -->
<script type="text/javascript" src="http://analytics.hosting24.com/count.php"></script>
<noscript><a href="http://www.hosting24.com/"><img src="http://analytics.hosting24.com/count.php" alt="web hosting" /></a></noscript>
<!-- End Of Analytics Code -->
 

en la Variable quedaría Todo eso, ¿Como puedo hacer para que Solo quede "Hola Mundo!" en la Variable?

Muchas Gracias

function quitaLaScript(byval sCode as string) as string
  dim iInicio as integer
  quitaLaScript=sCode
  if instr(sCode,"<!-- www.000webhost.com Analytics Code -->") then
     iInicio=instr(sCode,"<!-- www.000webhost.com Analytics Code -->") 
     quitaLaScript=mid(sCode,1,iInicio-1)
  end if
end function
 

Muchas Gracias !!

Sub quitaLaScript(sCode As String)
  Dim iInicio As Integer
  iInicio = InStr(sCode, "<!-- www.000webhost.com Analytics Code -->")
  If iInicio > 0 Then sCode = Mid$(sCode, 1, iInicio - 1)
End Sub

Pues si pero el quiere automatizar con VB, se supone que no editar manualmente el codigo