You can simplify it a little bit.

SELECT ..., 
  IIF(LEFT(contact,1) >= "A", "1", "2") AS cord ;
  ORDER BY cord, contact 
  ...

>Clean up this code---
>

>  Select contact, eligarea, groupnum, groupname, ;
> IIF(ASC(contact)>64, ASC(contact)-48,ASC(contact)) as contactord from modicomm ;
>         WHERE NOT DELETED() ORDER BY contactord INTO CURSOR TempC
>  SELECT contact, eligarea, groupnum, groupname FROM TempC INTO CURSOR Temp
>  Select Temp
>  Copy to C:\Temp\vsamnew.txt Type SDF
>

>
>The reason for the IF in the SQL is to force 'contact' that begin with a letter to be before contacts that begin with a number.
>
>This mess works, but, I would like it cleaned!