Dim xdoc Dim pi Dim root Dim cdata Dim ele Dim attr Dim txt Set xdoc = CreateObject("Microsoft.XMLDom") Set pi = xdoc.createProcessingInstruction("xml", "version='1.0' encoding='Shift_JIS'") xdoc.appendChild(pi) Set root = xdoc.createEleme…