>>>Sergey,
>>>
>>>Again, great for noticing. I understood this bug at home too, but your message was a reminder to me to fix it. I'll do it right now.
>>>
>>>Thanks again for your help. I noticed, you often use this technique, and I'll start too. I also will investigate "Ed's route"...
>>>
>>Out of general boredom:
>>
>>

oRegExp=CREATEOBJ('vbscript.regexp')
>>oRegExp.Pattern = '\d{6}[A-Z]-[A-Z]\d{6}[A-Z]-[A-Z]\d{6}[A-Z]{2}-[A-Z]{2}\d{6}[A-Z]'
>>? oRegExp.Test('012345A-B012345C-D012345EF-GH012345I')
>>? oRegExp.Test('012345A-b012345C-D012345EF-GH012345I')

>
>Great, Ed. Thanks a lot. One little problem: [A-Z] could be also space, e.g.
>in mask: lcMask = "999999X-X999999X-X999999XX-XX999999X"
>X could be upper alpha or space.

PMFJI,

Use [A-Z/s], or IOW:

oRegExp.Pattern = '\d{6}[A-Z\s]-[A-Z\s]\d{6}[A-Z\s]-[A-Z\s]\d{6}[A-Z\s]{2}-[A-Z\s]{2}\d{6}[A-Z\s]'