uso questo codice x evidenziare il risultato di una ricerca:

descrizione2 = Replace(rec("descrizione"), vbCrLf, "
")
' evidenzia i risultati della ricerca:
arrRicerca = split(cerca)
for each item in arrRicerca
descrizione2 = replace(descrizione2,item,"<span style='background-color:yellow;'>" & item & "</span>",1,-1,vbTextCompare)
next

purtroppo quando ottengo un risultato in una ricerca oltre a colorare lo sfondo giallo (è quello che voglio), mi da un effetto indesiderato: la parola evidenziata diventa minuscolo/maiuscolo come nell'esempio che segue:

se nel testo ,c'è CARAMELLA e io cerco mella:
il testo mi diventa: CARAmella

se nel testo, cè caramella e io cerco MELLA
il testo mi diventa: caraMELLA

come faccio ad evidenziare i risultati della ricerca senza cambiare il perdere la formattazione minuscolo/maiuscolo preesistente?