Jochen,
if you wanted to cover all lengths, yours could be: 79

 Code:
;!
Function a($)
    dim $i
    for $i=1 to ($^)
	$a=$a+$i*(asc($)-64)*($>!)
        $=right($,~)
EndFunction
;!
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)