@RandyMarion, I saw that you're was a more robust set of code, that's why I made sure to specify that my little string assumed a comma. In the interest of taking this way farther than anyone is interested in, it occurred to me that you could start from the end of the string and work backwards and come up with something that handles with or without comma:
Zip$=STP(MID(IMP$,POS("" ""=IMP$,-1)),2); IMP$=STP(MID(SUB(UCS(IMP$),"","","" ""),1,POS("" ""=IMP$,-1)),2);State$=STP(MID(IMP$,POS("" ""=IMP$,-1)),2);City$=STP(MID(IMP$,1,POS("" ""=IMP$,-1)),2)