> Klaidos nemeta tik tuomet kai reiksme 0000xxxx( kai vyriausieji baitai = 0)

  Kaip gerai, kad mėgėjiškam skriptavimui kadaise nesigilindamas pasirinkau
Perl, o šitą brudą palikau ramybėje ;)
  Šitas brudas pripažįsta tik Variant tipą ir potipius kaitalioja automatiškai,
nors kartais įmanoma apgaut:

x = &h12345678
y1 = (x / &h00010000) And &hFF
y2 = (x And CLng(&h00FF0000)) / &h00010000
wscript.echo(Hex(y1) & " " & Hex(y2))

-- 
  saimhe