Here is my code good for a KiXGolf Score of 93
 Code:
Function a($b)
	Dim $, $c
	For $ = 0 to Len($b)
		$c = Asc(SubStr($b,$,1))-64
		$a = IIf($c<0,0,$c)*$ + $a
EndFunction