Dim Zahl As Int
Zahl = 1+ 32 +16
Dim b As String =""
If Bit.And(Zahl, 128) = 128 Then b=b & "1" Else b=b & "0"
If Bit.And(Zahl, 64) = 64 Then b=b & "1" Else b=b & "0"
If Bit.And(Zahl, 32) = 32 Then b=b & "1" Else b=b & "0"
If Bit.And(Zahl, 16) = 16 Then b=b & "1" Else b=b & "0"
If Bit.And(Zahl, 8) = 8 Then b=b & "1" Else b=b & "0"
If Bit.And(Zahl, 4) = 4 Then b=b & "1" Else b=b & "0"
If Bit.And(Zahl, 2) = 2 Then b=b & "1" Else b=b & "0"
If Bit.And(Zahl, 1) = 1 Then b=b & "1" Else b=b & "0"
Log(b)