& Chr(10) &Shape sp;sp.Characters = "12345" & Chr(10) & "56789";
注意不能和文本一起放在引号内。
方便VISIO二次开发中文本需要换行的处理。