Hi Ed,

>Excuse me it should be:
>
>a = "123"
>TYPE("A") = "C"
>a = 123
>TYPE("A") = "N"

That's it. I asked exactly about it and Ricardo helped me. Now look which code I placed in edit valid event:

local lnLines, i, lcString
lnLines=memlines(this.value)
store 0 to _mline
for i=1 to lnLines && Loop through all lines
  lcString=alltrim(mline(this.value,1,_mline)) && each line
  if len(lcString)<>5 or type(lcString)<>'N' && typo occurs!
     =messagebox('You must type only 5 digits in each line!',48,'Error')
     return .f.
  endif   
next  

Very simple and works fine! As I said, I assume, that there are no more 5-6 lines, which users will type. So, what's the reason to switch? :)