Check whether an object implements specific interface in VB6

How can i check whether an object implements开发者_开发技巧 specific interface in VB6? I have the following code:

Dim nodes As MSXML2.IXMLDOMNodeList
Dim node As MSXML2.IXMLDOMNode
Dim element As MSXML2.IXMLDOMElement

...

For Each node In nodes.childNodes
    If (node is MSXML2.IXMLDOMElement (how to do this?)) Then
        Set element = node
        ...
    Else
        ...
    End If

Replace

If (node is MSXML2.IXMLDOMElement (how to do this?)) Then

with

If TypeOf node Is MSXML2.IXMLDOMElement Then

FYI: Before using TypeOf you have to be sure node is not Nothing otherwise it will raise a run-time error Object variable (or with block) not set.

In this case, does the function call TypeName(node) return "MSXML2.IXMLDOMElement" for you? If so that might be the solution.

Just assign it to 'element' and if assignment resumes in error, try next interface.