if you have xl2000 or later:

sStr = "aa,bb,cccc,ddddddd,ee"
v = Split(sStr,",")

j = 0
for i = lbound(i) to ubound(i)
j = j + 1
activesheet.OleObjects("Combobox" & j).Object.Value = v(i)
Next


--
Regards,
Tom Ogilvy


"CG Rosén" wrote in message
...
Hi Tom,

Thanks for the help. When I see your elegant solution I
also see that the question was not correct presented.
The joint string does not contain parts that are of the same
lenght. It should say "aaa,b,ccccccc,dd,eee" etc, in
other word the parts may be of different lenght in different
positions. Guess this complicates everything quite much?

Brgds

CG Rosén

"Tom Ogilvy" wrote in message
...
sStr = "aa,bb,cc,dd,ee"


j = 0
for i = 1 to 13 Step 3
j = j + 1
sStr1 = Mid(sStr,i,2)
activesheet.OleObjects("Combobox" & j).Object.Value = sStr1
Next

--
Regards,
Tom Ogilvy


"CG Rosén" wrote in message
...
Hi Group,

If I create a textstring like "aa,bb,cc,dd,ee" to find for example *bb*
by
"Advanced Filter" (as code), how to cut the joint string back in parts
as:
ComboBox1.Text = "aa"
ComboBox2.Text = "bb"
etc. in a "compressed" code?

Hope for some guidance.

Brgds

CG Rosén