Função CARACT para contar caracteres