48行目のIFの前にIF LEN(NAME$)<=4 THENを入れて36行目消してみたら?