oDoc.save XMLOUTPATH
　　MsgBox XMLOUTPATH & " is created for you."
　　End Sub
　　Function ReadBinData(ByVal strFileName As String) As Variant
　　Dim lLen As Long
　　Dim iFile As Integer
　　Dim arrBytes() As Byte
　　Dim lCount As Long
　　Dim strOut As String
　　注释：Read from disk
　　iFile = FreeFile()
　　Open strFileName For Binary Access Read As iFile
　　lLen = FileLen(strFileName)
　　ReDim arrBytes(lLen - 1)
　　Get iFile, , arrBytes
　　Close iFile
　　ReadBinData = arrBytes
　　End Function
　　Private Sub WriteBinData(ByVal strFileName As String)
　　Dim iFile As Integer
　　Dim arrBuffer() As Byte
　　Dim oNode As IXMLDOMNode
　　If Not (oDoc Is Nothing) Then
　　注释： Get the data
　　Set oNode = oDoc.documentElement.selectSingleNode("/Root/Data")
　　注释： Make sure you use a byte array instead of variant
　　arrBuffer = oNode.nodeTypedValue
　　注释： Write to disk
　　iFile = FreeFile()
　　Open strFileName For Binary Access Write As iFile
　　Put iFile, , arrBuffer
　　Close iFile
　　End If
　　End Sub
　　Private Sub cmdGetBinary_Click()
　　DOCOUTPATH = App.Path & "DocOutput.doc"
　　Set oDoc = New DOMDocument
　　If oDoc.Load(XMLOUTPATH) = True Then
　　注释： Save the Doc as another file
　　WriteBinData DOCOUTPATH
　　MsgBox DOCOUTPATH & " is created for you."
　　Else
　　MsgBox oDoc.parseError.reason
　　End If
　　End Sub
　　Private Sub Form_Unload(Cancel As Integer)
　　ReleaseObjects
　　End Sub
　　Private Sub ReleaseObjects()
　　Set oDoc = Nothing
　　End Sub
　　4. 建立word文档DocInput.doc。
　　5. 保存文档在工程目录下。
　　6. 运行程序点击cmdCreateXML 按钮.一个 XML 文件XmlOuput.xml 就建立了。
　　点击 cmdGetBinary 按钮就可以生成word文档 DocOutput.doc。
　　按照上面的方法，同样可以将任意的二进制数据存为xml，然后再重新生成二进制数据。可以用于web传输等等可以使用xmlhttp的地方。