replace and concatenate

[tapan t]

I've something of this sort:

stremail="(e-mail address removed);[email protected];[email protected]"
what I need to do is.

I need to replace and concatenate it should look like this

cdomail.Address "(e-mail address removed)"
cdomail.Address "(e-mail address removed)"
cdomail.Address "(e-mail address removed)"

How to do this??

Pls help

 

[Tim Williams]

dim arrE, x

arrE=split(stremail,";")

for x=lbound(arrE) to ubound(arrE)
cdomail.Address arrE(x)
next

tim.