Response.BinaryWrite и пробелы между символами

'strNewGif содержит наполнение gif 'GIF89...'
'strPath имя файла
Set objFSO = CreateObject('Scripting.FileSystemObject')
Set objTextFile = objFSO.CreateTextFile(strPath, True)
 
objTextFile.Write strNewGif

'//цвет единственного пикселя и прозрачность :)
intRed = 100
intGreen = 0
intBlue = 0
 
intTransparent = 0
 
'// формируем однопиксельный gif 
Dim myArray(42)
myArray(0) = 71
myArray(1) = 73
myArray(2) = 70
myArray(3) = 56
myArray(4) = 57
myArray(5) = 97
myArray(6) = 1
myArray(7) = 0
myArray(8) = 1
myArray(9) = 0
myArray(10) = 128
myArray(11) = 0
myArray(12) = 0
 
'//RGB values
myArray(13) = intRed
myArray(14) = intGreen
myArray(15) = intBlue
 
myArray(16) = 0
myArray(17) = 0
myArray(18) = 0
myArray(19) = 33
myArray(20) = 249
myArray(21) = 4
 
'//Transparency value
If intTransparent = 0 Then
    myArray(22) = 0
Else
    myArray(22) = 1
End If
 
myArray(23) = 0
myArray(24) = 0
myArray(25) = 0
myArray(26) = 0
myArray(27) = 44
myArray(28) = 0
myArray(29) = 0
myArray(30) = 0
myArray(31) = 0
myArray(32) = 1
myArray(33) = 0
myArray(34) = 1
myArray(35) = 0
myArray(36) = 0
myArray(37) = 2
myArray(38) = 2
myArray(39) = 68
myArray(40) = 1
myArray(41) = 0
myArray(42) = 59
 
'//Create gif string
'Dim strNewGif (42)
For i = 0 To 42
  strNewGif = strNewGif & ChrB(myArray(i))
  'strNewGif = strNewGif & Chr(myArray(i))
  '//Must be one byte per char, instead Chr generate 2 bytes chars as UNICODE
Next
 
'//Output to HTTP
    Response.Buffer = True
    Response.ContentType = 'image/gif'
    Response.BinaryWrite strNewGif
    Response.Flush