Kix2vbs is not really a failsafe thing, more of a guideline.
Try this (untested):
 Code:
function ReadBin($path)
  $objFSO = CreateObject("Scripting.FileSystemObject")
  $objBinFile = $objFSO.GetFile($path)
  $objBinStream = $objBinFile.OpenAsTextStream(1, 0)
  $i = -1
  Do
    $i = $i + 1
    redim preserve $strLine[$i+1]
    $intByte = Asc($objBinStream.Read(1))
    $strLine[$i] = $intByte
  Until $objBinStream.AtEndOfStream
  $ReadBin = $strLine
endfunction

Function WriteBin($path, $ArrayByte)
  $objFSO = CreateObject("Scripting.FileSystemObject")
  $objFile = $objFSO.CreateTextFile($path, 0, 0)
  For $i = 0 To UBound($ArrayByte)
    $objFile.Write(Chr($ArrayByte[$i]))
  Next
  $objFile.Close()
  $objShell = CreateObject("Shell.Application")
  $objParent = $objShell.NameSpace( $objFSO.GetParentFolderName($objFSO.GetAbsolutePathName($path)))
  $objFile = $objParent.ParseName($path)
  $objFile.ModifyDate  = @DATE + " " + @TIME
  $objFile = ""
  $objFSO = ""
  $objShell = ""
endfunction

Function WriteBin_append($file, $ArrayByte)
  $objFSO = CreateObject("Scripting.FileSystemObject")
  $objFile = $objFSO.OpenTextFile($file,  8, 1)
  For $i = 0 To UBound($ArrayByte)
    $objFile.Write(Chr($ArrayByte[$i]))
  Next
  $objFile.Close()
  $objBinFile.Close()
endfunction