Originariamente inviato da optime
if frase=ucase(frase) then

più facile di così....
pensavo fosse più complicato...

Grazie della dritta.