D. Lambert was threading his way through a horrible mess of an inherited system and stumbled upon a rather remarkable function. Unlike so many other of the terrible routines within the system -- some spanning several printed pages with nested loops six-deep and variables whose scope has been violated back and forth and forth and back -- this function is subtle. Elegant. It's a tiny monument to twisted intent that should allow one to appreciate the totality of its ruin ...

Private Function Add(ByRef Which As Integer, ByVal HowMany As Integer)
  Which = Which + HowMany
End Function

For the VB.NET deprived, I've posted the first comment with some cliff notes provided by D.