How to manipulate this string

[Mr_Bateman]

Hi all,

I need to be able to take substrings of the below string that is entered into a textbox in VB6. The string is an address and I need to take a substring of the City, State, Street, Zip Code, and Country


400 Main Street
East Manchester, TX 12345


So I basically need the substrings like this:
Street= 400 Main Street
City = East Manchester
State = TX
Zip = 12345


Your help is greatly appreciated...