Dim i1 As Byte = &HFF '// Hexadecimal Basis 16
Dim i2 As Byte = &O12 '// Octal (Basis 8)
Dim i3 As Byte = B("1111") '// Binär (Basis 2)
Private Function B(ByVal value As String) As Byte
  Return CByte(System.Convert.ToInt32(value, 2))
End Function