Function con doppio replace

[supermac]

peraltro puoi risparmiarti sia il doppio replace che l'IF

function data1_comm(ByVal X as string)
return replace(trim(Lcase("" & X)),"certificazione", "fogli" )
end function

però così in effetti ti torna tutta la stringa in minuscolo