Binaryworld - ArrayMax - The value and index of highest element in an array of any t ... [ VB -> Arrays ]

' Return the maximum value in an array of any type
'
' FIRST and LAST indicate which portion of the array
' should be considered; they default to the first
' and last element, respectively
' If MAXINDEX is passed, it receives the index of the
' maximum element in the array

Function ArrayMax(arr As Variant, Optional ByVal First As Variant, _
  Optional ByVal Last As Variant, Optional MaxIndex As Long) As Variant
  Dim Index As Long

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

  MaxIndex = First
  ArrayMax = arr(MaxIndex)

  For Index = First + 1 To Last
    If ArrayMax < arr(Index) Then
      MaxIndex = Index
      ArrayMax = arr(MaxIndex)
    End If
  Next
End Function