Nadia,
The problem is that you have two consecutive letters in [w-4164bt5] (bt) so you need to alltrim lcQuality
lcQuality =
Alltrim(SUBSTR(m.lcCheck, m.lnPos + 1)) && Assuming we can only have 2 numbers in the style
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges