Que hace esta función en VB?

[[cHackAll]]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
 cadena, strAux: string;
 arrB: array[0..1023] of Byte;
 i: Cardinal;
begin
 cadena := '43274893174817841747819273894718978277417AQW13748179';
// ReDim arrB(0 To (Len(cadena) / 2) - 1) // Asigna el espacio en memoria de la mitad de la cadena desde el índice 0
 for i := 0 To (Length(cadena) div 2) - 1 do
  begin
   strAux := Copy(cadena, i * 2 + 1, 2);
   arrB[i] := StrToInt('$' + strAux);
  end;
// auxbiFIR = arrB
Sleep(0);
end;

0j0: el Val del VB convierte a 'QW' como 0