Sostituendo

codice:
strCitazione = Mid(campoMemo,1,1000)
a

codice:
strCitazione = campoMemo
nel caso CASE ELSE?