ok here is my 83:

 Code:
;!
Function a($)

	dim $b
	if $
		$b=asc(right($,1))-64
		$a=a(left($,~))+len($)*$b*($b>)

EndFunction
;!
;!
; end Quicksum
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)