Jooel... Here is your 85 down to 83/82

 Code:
Function a($)
dim $b
for $b=1 to 0^$
 $a=$a+$b*split(asc(substr($,$b))-64,"-")[0]
EndFunction