Here is my HappyNumbers code...

Code:

Function HappyNumbers($)
   Do
      ReDim $z,$a
      Do
         $z=$ mod 10
         $a=$a+$z*$z
         $=$/10
      Until $=0
      $=$a
   Until $=1 | $=4
   $HappyNumbers=$<>4
EndFunction

...For a longname score of 116

And...
Code:
Function A($)
   Dim $z
   Do
      Do
         $z=$ mod 10
         $a=$a+$z*$z
         $=$/10
      Until $=0
      $=$a $a=0
   Until $=1 | $=4
   $a=$<>4
EndFunction


...for a short name score of 93.