Split Full Addresses without comma's

I am a Website Developer and DBA Admin, I have been messing around in VBA for a few months now and decided to create a few functions to split a full address that is in one cell into multiple cells (Street, City, State, Zip, Zip + 4)

Here is a example:

Please Login or Register  to view this content.

So far all my code is still under development. It is in no way near perfect or complete yet.

I am looking to get user feedback and tips on how to make it simpler. I have not seen any one come up with some functions to do this process. All solutions I have seen are based off if the address as commas. I gathered what I can from this site and Google to figure out how to put all this together. I am open to all thoughts and criticism.

READ NOTES: These functions are based on a few things;
1. The full address column must be all upper case.
2. Make sure there are no commas or hyphen. # is accepted as some addresses have apartment number, etc

Known Errors:
1. Addresses outside of United States turn up errors
2. Addresses without Street Abbreviation (ie: St, Dr, Loop, Ridge)
3. Addresses with random numbers lol i'm still working the bugs out.

TO USE:
Street - Place =street(a2) into column
City - Place =city(a2) into column
State - Place =state(a2) into column
Zip - Place =zip(a2) into column
Zip + 4 - Place =zip4(a2) into column


Code will be posted in next post...

=Street(a2) Function:

Please Login or Register  to view this content.

=city(a2) Function:

Please Login or Register  to view this content.

=state(a2) Function:

Please Login or Register  to view this content.

=zip(a2) Function:

Please Login or Register  to view this content.

=zip4(a2) Function:

Please Login or Register  to view this content.