WELL, if you know it will ALWAYS be in that format, then
assign City = entry(1,vstring,",")
State = entry(1,ENTRY(2,vstring,",")," ")
zip = entry(2,vstring," ").
Another idea is this. Get rid of the comma:
assign vString = replace(vstring,","," ").
Now the comma is gone and...