Funktion til markering af søgeord

Halløj

Jeg har lavet den her funktion til markering af søgeord i en artikel.

function highlight(myWords,streng)
    if instr(myWords, " ") and left(myWords,1) <> Chr(34) and right(myWords,1) <> Chr(34) then
        myarray = split(myWords, " ")
        for each item in myarray
        streng = replace(streng,item,"<font color=#FFFFFF style=""BACKGROUND-COLOR:#083C73"">" & item & "</font>")
        next
        myarray = ""
    else
        streng = replace(streng,replace(myWords,"""",""),"<font color=#FFFFFF style=""BACKGROUND-COLOR:#083C73"">" & replace(myWords,"""","") & "</font>")
    end if
Response.Write streng
end function

Men men!

Den virker ikke hvis nu man skriver kombinerer en sætningsbestemt søgning med et eller flere ord.

F.eks.: "§ 18" skade

Nogen forslag?