一个奇怪的现象？

fbj-Excel

我平常用这个代码来复制单元格显示的内容
Sub 复制文本到剪贴板()
'显示什么就复制什么
    Dim tt
    tt = ActiveCell.Text
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText tt
        .PutInClipboard
    End With
End Sub
然后用这个代码打开inputbox窗口将上面代码复制的内容粘贴到inputbox中，实现输入文本不改变原活动单元格的格式。
Sub 输入文本()
   Dim ZJWB As String
   ZJWB = InputBox("输入要增加的文本：", "房炳杰制作")
    If ZJWB <> "" Then ActiveCell.Value = ZJWB
End Sub
但是，发现了一个奇怪的现象，第一个宏复制数字，到第二个宏粘贴一切都正常。但是用第一个宏复制含有中中文的单元格时，无法粘贴到第二个宏打开的inputbox窗口中。但是，经检验，第一个宏已经把单元格的内容复制到剪贴板了，并且可以粘贴到记事本中，在记事本中复制后又可以粘贴到inputbox窗口，就是无法在第一个宏运行后，直接在第一个宏打开的inputbox中粘贴。
疑惑：
1、为什么复制粘贴数字和英文没有问题，只有中文才出问题？
2、为什么已经复制到粘贴板了，却不能粘贴在inputbox窗口中？
3、为什么在第一个宏复制后，要在记事本中中转一下才能粘贴？
两个宏已在附件中。

fbj-Excel

今天大家都很忙，没人回复。自己顶一下。