VB Code:
  1. Public Sub addToNumber(ByRef n As Long, ByVal nToAdd As Long)
  2.     n = n + nToAdd
  3. End Sub