Dim WORD As Integer 'Tu valor Integer de dos bytes WORD=Val("&H" & Hex(Byte2) & Hex(Byte1)) 'Concatenar los bytes