Это должно помочь вам визуализировать происходящее. Это показывает различные маски. Посмотрите на «биты» на каждой остановке.
Dim bits As String
Dim intValue As UInteger = 39101
Dim LSB As UInteger
bits = Convert.ToString(intValue, 2).PadLeft(32, "0"c)
Stop
LSB = intValue And &HFFFFUI 'keep 16 bits
bits = Convert.ToString(LSB, 2).PadLeft(32, "0"c)
Stop
LSB = intValue And &HFFUI 'keep 8 bits
bits = Convert.ToString(LSB, 2).PadLeft(32, "0"c)
Stop
LSB = intValue And &HFUI 'keep 4 bits
bits = Convert.ToString(LSB, 2).PadLeft(32, "0"c)