VB6创建DOMDocument实例报错！求高手！

Public XmlDoc As DOMDocument '文档对象模型

Private Sub Command1_Click()
Set XmlDoc = New DOMDocument '生成对应的XML文档

Label1.Caption = "OK"
End Sub

我在工程引用里以添加了msxml4.dll的引用!
但是执行到Set XmlDoc = New DOMDocument 就报错 
报：
  错误编号：-2147221231 
  错误内容：自动化错误

http://download.csdn.net/detail/veron_04/1627134