Utiliza el código que te indiqué en
http://foros.solocodigo.com/viewthread.php?tid=4724.
El valor para cada byte lo obtendrás como elemento de la matriz que le pases como parámetro.
Por ejemplo:
después de añadir el código aquel, añade este otro para probar en algún sitio.
Dim byt1() as Byte
PackNro 23434 , byt1 , LittleEndianByteOrder
Msgbox "Primer byte " & byt1(1) 'byt1(1) = 138
Msgbox "Segundo byte " & byt1(2) 'byt1(2) = 91
Msgbox "Tercer byte " & byt1(3) 'byt1(3) = 0
Msgbox "Cuarto byte " & byt1(4) 'byt1(4) = 0
Si te das cuenta 23434 = 138 * 256^0 + 91 * 256^1 + 0 * 256^2 + 0 * 256^3
A ver si esto te va bien.
Suerte y a ver que tal.
