I have a form in which I test for two items in a certain field:

1. That the user has keyed in 8 characters

2. That the last four characters are "7879"

This is the code in the valid method of the textbox:

** start - Valid method of textbox **

al = len(wires.CUtransit) && create memory variable to
save to zzz all like al && see what VFP says is the length of expression


IF len(this.value)<>8
=messagebox("Transit Number must be 8 characters [ie. 12347879] !",16,oCUWS.appname)
else
if right(this.value,4)<>"7879" and len(this.value) = 8
=messagebox("Transit Number must end with '7879' !",16,oCUWS.appname)
endif
endif

*** end ***

When I enter two characters, the memory variable 'al' returns 8 as the length of the expression. I can't seem tp trap for the user entering less than 8 characters.

Any ideas in what I am doing wrong here?