无效的使用NEW关键字

我想把EXCEL表格的一部分复制到粘贴板，在EXCEL里用VBA是可以实现的。
可是在VB里，出错。
代码：
Dim MyData As DataObject, rng As Range, Mystr As String
Set MyData = New DataObject
For Each rng In Range("a1:a4")
    Mystr = Mystr & rng.Value
Next rng
MyData.SetText Mystr
MyData.PutInClipboard
出错见上图。
请问如何解决？谢谢！