1. 建立一个新的vb工程。
2. 引用 Microsoft XML,版本 2.0 或以上。
3. 在窗体form1上建立按钮 cmdCreateXML 和 cmdGetBinary
代码：
Option Explicit
Dim oDoc As DOMDocument
Dim DOCINPATH As String
Dim XMLOUTPATH As String
Dim DOCOUTPATH As String
Private Sub cmdCreateXML_Click()
Dim oEle As IXMLDOMElement
Dim oRoot As IXMLDOMElement
Dim oNode As IXMLDOMNode
DOCINPATH = App.Path & "DocInput.doc"
XMLOUTPATH = App.Path & "XmlOuput.xml"
Call ReleaseObjects
Set oDoc = New DOMDocument
oDoc.resolveExternals = True
注释： Create processing instruction and document root
Set oNode = oDoc.createProcessingInstruction("xml", "version=注释：1.0注释：")
Set oNode = oDoc.insertBefore(oNode, oDoc.childNodes.Item(0))
注释： Create document root
Set oRoot = oDoc.createElement("Root")
Set oDoc.documentElement = oRoot
oRoot.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"
注释： Add a few simple nodes with different datatypes
Set oNode = oDoc.createElement("Document")
oNode.Text = "Demo"
oRoot.appendChild oNode
Set oNode = oDoc.createElement("CreateDate")
oRoot.appendChild oNode
Set oEle = oNode
注释： Use DataType so MSXML will validate the data type
oEle.dataType = "date"
oEle.nodeTypedValue = Now
Set oNode = oDoc.createElement("bgColor")
oRoot.appendChild oNode
Set oEle = oNode
注释： Use DataType so MSXML will validate the data type
oEle.dataType = "bin.hex"
oEle.Text = &HFFCCCC
Set oNode = oDoc.createElement("Data")
oRoot.appendChild oNode
Set oEle = oNode
注释： Use DataType so MSXML will validate the data type
oEle.dataType = "bin.base64"
注释： Read in the data
oEle.nodeTypedValue = ReadBinData(DOCINPATH)
注释： Save xml file