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

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