if frase=ucase(frase) then

più facile di così....