Function getNodeFromDocument(document As DOMDocument, nodename As String, default As String) As String 
    Dim nodeList As MSXML2.IXMLDOMNodeList 
     
    If (document Is Nothing) Then 
        getNodeFromDocument = default 
    Else 
        Set nodeList = document.getElementsByTagName(nodename) 
         
        If (nodeList.Length > 0) Then 
            getNodeFromDocument = nodeList.Item(0).Text 
        Else 
            getNodeFromDocument = default 
        End If 
    End If 
 
End Function