Finding values

I have one client whose emails are configured to have city, state, zip all on one line. I need to separate those values into 3 fields, but this is proving very difficult as they often have odd characters and such in the address. One example as follows:

NEWTON(ANDOVER TWP) NJ 000007860

Another example:

PLAINVIEW          @ NY 000011803

I'm getting the city for the most part, but with these odd characters, I'm not getting the state all the time or there is extra spaces in the state that don't get trimmed. I also need to trim off those leading zeros on the zip code, but they are not always present.

I wrote a conditional script on the zip but am unsure if it will process

Sub Main()
Email2DBExtract=Email2DBExtract

if len(zip)>5 then right(zip, 5)

Can someone steer me in the right direction on this, please?
END SUB