>OK then, if there is always a letter you can do something like you said
>
>

>? Alines(laLines, chrtran("A-B123Q4E", "ABCDEFGHIJKLMNOPQRSTUVWXYZ-", Space(26)), 1 + 4, ' ')
>
>? laLines[1] && Number
>? laLines[2] && Color Quality
>

>
>[Update]Ooops.. sorry, forgot you are using VFP 8

Yes, too bad :( Anyway, I'll do it in few steps and check ALINES help or I can use GetWordNum.