Is it possible to alternate the text to column function in VBA to match the following needs:

Say I have a list of text strings. I would like to go through them one at a time, from top to bottom, and copy the content vertically to one column based on a delimiter "@". That is, the macro should take cell1 in column A (text string one consisting of, say, 7 paragraphs delimited by "@") and copy the parts down in column B and so on with the other strings. In this way creating a list of paragraphs in column B.

sdfas@xgdg@asdgwrt@fasg@ sdfas
jwelrjb@dfwg@sdfe@asfweg@ xgdg
dasf@asf@asfgttyh@sdgshery@fsdh@ asdgwrt
casdgery@sdhgrh@ fasg
jwelrjb
dfwg
sdfe
asfweg
dasf
asf
asfgttyh
sdgshery
fsdh
casdgery
sdhgrh