如何将1111528010改为11115-28010?

dim sss as string
sss=" initial data"
sss=left(sss,5) &"-" & right(sss,5)

可以做到，不过你要说清楚。
是把所有的1111528010改为11115-28010吗?
还是你列出来的只是一个格式？这些东西是在文件里的?还是数据库里面的？

一般的文字编辑软件都可以包括windows的写字板 选编辑--替换--填上1111528010替换填上11115-28010按替换全部

str="1111528010"
str2=left(str,5) & "-" & right(str,5)

取左面5个,然后取右面5个,中间加个横线

是什么啊?文件还是数据库记录?