$a="a"
$x=StringToBinary ($a)
$x=Binary("a")
MsgBox(0,"x",$x)
$y=Dec(Stringmid($x,3,2))+1
$y=BinaryToString($y)
MsgBox(0,"y",$y)