代码如下:dim str,ins as string,n as integerstr="我是中国人" '假设这是最初的字符串re:n=inputbox("输入你要插入的位置,应小于总字符长度: " & len(str))if n>len(str) then goto reins=inputbox("输入你要插入的字符")msgbox right(str,n) & ins & left(str,len(str)-n) 即可.