将字符串设置到剪贴板为什么时而出现异常？

ziyuu

    MyChar = Input(tal, #1)     


Close #1


    Dim MyData As New DataObject

    Clipboard.Clear
    MyData.setText MyChar
    MyData.PutInClipboard

这段代码意思是将剪贴板设置为一段字符串MyChar，但问题是，时而正常时而异常，异常的情况是当把这段字符串粘贴出来时会变成两个框框，正常时粘贴出来就是正常的字符串。
正常和异常情况并不是随机出现，而是到某个时间，正常会变成异常，再到某个时间异常会变成正常。刚开机时是正常的。
这段代码我用了接近2个月了，但是一直找不到问题之所在。
请问怎么样才能解决异常的情况，谢谢了。

金樽空对月

抱歉，没接触过这类知识，不能帮到你，只能先顶起，等待大大出手{:35:}