Or is this what you want?
VB Code:
  1. Dim i As Long

  2. Dim sngAvg As Single

  3. For i = b To (b + 10)

  4.     sngAvg = sngAvg + Loser(a, i)

  5. Next i

  6. sngAvg = sngAvg / 11

  7. Returns(a) = sngAvg
?