For I = 0 To 255
Dim VarByte As Byte = I
Dim OffsetVC As Int = Bit.ShiftLeft(Bit.And(VarByte, 0xFF), 4)
Dim OffsetCV As Int = Bit.ShiftLeft(Bit.And(0xFF, VarByte), 4)
If OffsetVC = OffsetCV Then
Dim Flag As String = "ok"
Else
Dim Flag As String = "WTF?"
End If
Log( _
I & TAB & _
VarByte & TAB & _
OffsetVC & TAB & _
OffsetCV & TAB & _
Flag & TAB & _
Bit.ToHexString(OffsetVC) _
)
Next