使用Excel VBA将字符串分隔成列

I'm trying to write a macro in VBA to split a bunch of addresses all in the same format into separate columns. So a street address column, suburb, postcode and state code column. The addresses all follow this format:I'm trying to write a macro in VBA to split a b