90:
 Code:
Function a($b)
  Dim $, $y
  For $ = 0 to Len($b)
    $y = Asc(SubStr($b,$))
    If $y>64 $a=$a+($*($y-64))
EndFunction

Presumably final code, basically not mine anymore but Witto's and Jochen's code.