On Error Resume Next
function z(num)
    z=string(num*2,"0")
end function
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\image.gif", 2, True)
For x = 1 To 511 Step 2 : ts.Write Chr(Clng("&H" & Mid("47494638396110001000B3"&z(6)&"9CFF9CFF00FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF21F90401000003002C"&z(4)&"1000100000043070C849ABBD14E8CDBB0E600008A430965F7892AB09846269CA29D8DE5EBE613C37F83E1E06B80B0A2D44CD6F776CF222003B",x,2))) : Next
ts.Close