<script language=vbscript>
...
aa=...
if len(trim(aa))<>10 then
  msgbox "有误"
else
if left(aa,4)<>"5278" then
 msgbox "有误"
end if 
end if
...</script>