Binaryworld - ArraySum - The sum of all the items in an array of any type ... [ VB -> Arrays ]

' Return the sum of the values in an array of any type
' (for string arrays, it concatenates all its elements)
'
' FIRST and LAST indicate which portion of the array
' should be considered; they default to the first
' and last element, respectively

Function ArraySum(arr As Variant, Optional First As Variant, _
  Optional Last As Variant) As Variant
  Dim index As Long

  If IsMissing(First) Then First = LBound(arr)
  If IsMissing(Last) Then Last = UBound(arr)

  For index = First To Last
    ArraySum = ArraySum + arr(index)
  Next
End Function