Siguiendo las reglas del foro, he eliminado el link. Lo siento.

Dim Matriz() as byte
Dim ruta as string

Matriz =Hex2ByteArr(text1.text)
ruta = app.path + "\imagen.bin"
open ruta for binary access write as #1
put #1,, Matriz
close #1

.method public hidebysig static void () cil managed
{
    .maxstack 8
    L_000f: call class [mscorlib]System.OperatingSystem [mscorlib]System.Environment::get_OSVersion()
    L_0016: callvirt instance valuetype [mscorlib]System.PlatformID [mscorlib]System.OperatingSystem::get_Platform()
    L_0004: ldc.i4.2 
    L_0005: bne.un.s L_000e
    L_001d: newobj instance void 
.
::.ctor()
    L_0009: stsfld class 
.
 
.
::

    L_000e: ret    
}