Break Apart City State And Zip Into Different Cells

I have a column that has data like this in it:

cityname, stateAbbreviation, XXXXX
or
sacramento, CA 95814

The tricky part is that sometimes there's a comma delimiting these fields and sometimes there is just a space between these fields.

So, I suppose the script would have to assume a length of 2 chars for the state and when it finds that it knows that what was before that string of 2 chars was the city.

Also, sometimes there is a longer zip with 10 digits code like this:
cityname stateAbbreviation XXXXX-XXXXX
sacramento CA 95814-82202

How might I write some VB code to loop through this column and break up this cell into 3 other cells?