ToDo third version. Used a STRTOUPPER function