Writing Base64 encoded data to file vith vbs script

Option Explicit:
Dim D, E, b, out
'Set the output filename:
out = "c:\\out.exe"
Set D = CreateObject("Microsoft.XMLDOM")
Set E = D.createElement("tmp")
E.DataType = "bin.base64"
' set the base64 encoded value to here:
E.Text = "Q3VyaW9zaXR5IGlzIGEgcmVxdWlyZW1lbnQgZm9yIGEgaGFja2Vy"
Set b = CreateObject("ADODB.Stream")
b.Type = 1
b.Open
b.Write E.NodeTypedValue
b.SaveToFile out, 2