; ******************************************************
Function ByteArray($array)
  Dim $stream, $i

  $stream = CreateObject("ADODB.Stream")
  If @error
    Exit @error
  EndIf

  $stream.Type = 2
  $stream.CharSet = "windows-1252"
  $stream.Open

  For $i=0 to Ubound($array)
    $stream.WriteText(Chr(Val("&"+$array[$i])))
  Next

  $stream.Position = 0
  $stream.Type = 1
  $ByteArray = $stream.Read
  $stream.Close
Endfunction
; ******************************************************