Microsoft.XMLDOM的问题，求指教啊

Public Function openxml(filename As String) As script
    Dim xmldoc As New DOMDocument'这里报错。用户定义类型未定义。这个怎么破啊
    
    Set xmldoc = CreateObject("Microsoft.XMLDOM")
    
    xmldoc.Load filename

    Set xmlRoot = xmldoc.DocumentElement
    For Each childItem In xmlRoot.ChildNodes
       
        If childItem.BaseName = "SystemArea" Then
            For Each area In childItem.ChildNodes
                Debug.Print area.Attributes.getNamedItem("name").NodeValue
            Next
        End If
    Next
End Function --------------------编程问答-------------------- 顺便问问。CreateObject("Microsoft.XMLDOM")
我要把一个node当作参数传给另外一个函数。我怎么知道这个node的类型呢
     --------------------编程问答-------------------- 引用msxml6.dll：
Microsoft XML, v6.0

补充：VB ,  VBA