Sökmotor

Tjena!
Jag använder denna kod:

<script type="text/javascript">

function SearchText(qstr){
if (navigator.appName == "Microsoft Internet Explorer"){
VBSearchText(qstr);
} else if(navigator.appName=="Netscape"){
find(qstr);
}
}
</script>
<script type="text/vbscript">
' Hybridscript
sub VBSearchText (qstr)
dim doc
set doc = document.body.createTextRange
doc.findText(qstr)
doc.select
end sub
</script>

Hämtad från Jojoxx.net..

Jag skulle vilja göra så att den markerade alla ord som matchar med sökordet..

Hur ska man göra de?