local accounts,y
m.accounts='100,1100,200,250,3000'

m.y=""
for i=1 to  getwordcount(accounts,',')
m.y=m.y+"accounsts["+trans(i)+"]="+getwordnum(accounts,i,',')+chr(13)
endfor
_cliptext=m.y
messagebox(m.y,"string in clipboard")