Sending MAIL to multiple Receipients using CDO Objects

Hello,

I am using CDO objects for my EMAIL application. I want to send a MAIL to multiple receipients using then ( cc - carbon copy , bcc - Bi Carbon copy ) facilities.
I have provided two text boxes where user can enter several mail account names. I had written the code but it is not performing the activity what I wanted. It is taking
all the mail accounts along with the Main Receipient ( To mail Id ) in one line and the CC and BCC are left empty.

Code which I had written is as below

Set objRecipients = ObjMsg.Recipients

' This is for the main receipient to whom the message is to be sent
Set objOneRecip = objRecipients.Add

With objOneRecip
'Fill in an appropriate alias here
.Name = Me.TxtToMail.Text
.Type = ActMsgTo
.Resolve ' get MAPI to determine complete e-mail address
End With

Can u tell me how to change the logic for both CC and BCC

Regards

Prasad

([email protected])