Instr is a complex way of achieving your outcome. Split is more economical.

You could add the following to your code:

[vba]
Dim Parse as Variant

Parse = Split(rngCell.Value, ",")
[/vba] Now Parse is an array whose first member is the street, second the city and third the Zip code. Now just assign each output cell's value to Parse(x), once for each member.