replace and concatenate

[tapan t]

I've something of this sort:

stremail="ta**@yahoo.com;ta***@yahoo.com;ta***@yah oo.com"
what I need to do is.

I need to replace and concatenate it should look like this

cdomail.Address "ta**@yahoo.com"
cdomail.Address "ta***@yahoo.com"
cdomail.Address "ta***@yahoo.com"

How to do this??

Pls help

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Tim Williams]

dim arrE, x

arrE=split(stremail,";")

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

tim.
"tapan t" <ch********@indiainfo.com> wrote in message
news:uj**************@TK2MSFTNGP10.phx.gbl...

I've something of this sort:

stremail="ta**@yahoo.com;ta***@yahoo.com;ta***@yah oo.com"
what I need to do is.

I need to replace and concatenate it should look like this

cdomail.Address "ta**@yahoo.com"
cdomail.Address "ta***@yahoo.com"
cdomail.Address "ta***@yahoo.com"

How to do this??

Pls help

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!