中国DOS联盟

strHex = "30313233"

Set objStream = Createobject("Adodb.Stream")

    Set objXML = Createobject("Microsoft.XMLDOM")

    Set objElement = objXML.CreateElement("oTmpElement")

        objElement.DataType = "bin.hex"

        objElement.NodeTypedValue = strHex

    With objStream

        .Type = 1

        .Mode = 3

        .Open

        .Write objElement.NodeTypedValue

        .SaveToFile "Test.txt"

    End With

        objStream.Close