Anyway with Witto's suggestions 110:
Edit: Witto's suggestions failed the tests.
Here are Some of witto's and some of Jochen's suggestions put together for a score of 117
 Code:
Function a($)
  Dim $x, $y
  $x = 1
  While $x <= Len($)
    $y = Asc(SubStr($,$x))
    If $y>64 $a=$a+($x*($y-64)) EndIf
    $x=$x+1
EndFunction


Edited by apronk (2007-07-23 03:07 PM)