主题：[求助]复制编码问题

如题：

'''
Dim s,s1,s2,s3,s4,s5,s6 As String
s1 = "客户名称："
s2 = Tables("客户").Current("客户名称")
s3 = "  联系人 ："

s4 = Tables("客户").Current("联系人")

s5 = "  电   话 ："
s6 =  Tables("客户").Current("电话")
s = s1 & s2 & s3 & s4 & s5 & s6
ClipBoard.SetText(s)

 

粘贴文本效果为：

 

客户名称：联想电脑公司  联系人 ：周瑜  电   话 ：010-88667722

 

我想将其变成下面的效果，如何改写？

 

客户名称：联想电脑公司

  联系人 ：周瑜

  电   话 ：010-88667722

参考：

http://www.foxtable.com/help/topics/0347.htm

 

s = s1 & s2 & s3 & s4 & s5 & s6
改为：

s = s1 & s2 & vbcrlf & s3 & s4 & vbcrlf & s5 & s6