Grazie!

Ho provato così intanto

if instr(Intestazione,"campoform") > 0 then
campoform = ContenutoFile
end if

e funziona!

Grazie lo stesso!