Here's my monstrosity for 462:
 Code:
function a($)
  Dim $s, $k, $d, $x, $y, $w, $u, $v
  $s=Split($,",")
  $d=$s
  $x=$s[0]
  $y=10
  For $k=0 To UBound($d)
    Dim $q
    $q=$d[$k]
    $a=$a+$q+"="
    Do
      Dim $i, $r, $p, $t
      For $i=1 to Len($q)
        $t=SubStr($q,$i,1)
        $p=Asc(UCASE($t))-64
        $r=$r+IIF($p < 0,CInt($t),$p)
      Next
      $q=$r
    Until LEN($q) = 1
    $a=$a+$q+", "
    $u=Len($s[$k])
    $v=Len($x)
    Select
      Case Cint($q) < $y
        ReDim $w
        $y = $q
        $x = $s[$k]
      Case $q = $y
        If $u > $v
          $w="Winner="+$s[$k]
        EndIf
        If $u < $v
          $w="Winner="+$x
        EndIf
        If $u = $v
          $w="Draw"
        EndIf
    EndSelect
  Next
  If NOT $w
    $w="Winner="+$x
  EndIf
  $a=$a+$w
endfunction