Now you have twice 64 in your code
substract it directly here
$y = Asc(SubStr($b,$))-64
Now evaluate for > 0
If $y>0 $a=$a+($*$y)