allora fai
codice:
strcode = mid$(variabile,instr(variabile,"CODE=")+5,(instr(variabile,"!")-   instr(variabile,"CODE=")+5))