Dim objDOM, rtResult, strXMLDoc2 '文字列データとして変数にXML文書を格納しています。 '実際には、関数のパラメータとして、これらのXML文書のデータを受け取る 'というケースが多いかと思われます strXMLDoc = "" strXMLDoc = strXMLDoc + "XML入門-第1巻2500" strXMLDoc = strXMLDoc + "1-1234-5678-X" strXMLDoc = strXMLDoc + "西谷 亮" strXMLDoc = strXMLDoc + "1-1234-5678-X.gif" 'メモリ上へのXML文書の展開 Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") rtResult = objDOM.loadXML(strXMLDoc) MsgBox rtResult, vbInformation, "実行結果"