>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')