Imports System
Module Program
Sub Main()
Dim value As Byte = &HD6
Dim lower4 As Integer = value And &H0F
Console.WriteLine("value (dec): " & value)
Console.WriteLine("lower4 (dec): " & lower4)
Console.WriteLine("value (bin): " &
Convert.ToString(value, 2).PadLeft(8, "0"c))
Console.WriteLine("lower4 (bin): " &
Convert.ToString(lower4, 2).PadLeft(4, "0"c))
End Sub
End Module
' run:
'
' value (dec): 214
' lower4 (dec): 6
' value (bin): 11010110
' lower4 (bin): 0110
'