Risolto! Di sera non si dovrebbe lavorare...
Il ciclo for è il seguente:

for i = 36 to 255
if instr(1,Ucase(stringaTemp),Ucase(cStr("#"&cStr(i)& ";"))) <> 0 then
inizio=instr(1,Ucase(stringaTemp),Ucase(cStr("#"&c Str(i)&";")))
lunghezza=len(cStr("#"&cStr(i)&";"))
stringaDaEliminare = Mid(stringaTemp , inizio, lunghezza)
stringaTemp = Replace(stringaTemp, stringaDaEliminare, "")
i=i-1
end if
next