Николай Ким

Похоже, внутри Execute просто собирается исходник и выполняется.
Можно содержимое просто записать в переменную и вывести в файл, как-то так:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("D:\Temp.txt")

Dim myText: myText = GetText
objFile.Write myText

objFile.Close

Function GetText
  	GetText = "b" + "o" + chr( 1095348/9868 ) & "l" + "E" ...
End Function