Binaryworld - ArrayMin - The value and index of lowest element in an array of any ty ... [ VB -> Arrays ]

' Return the minimum 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 MININDEX is passed, it receives the index of the
' minimum element in the array

Function ArrayMin(arr As Variant, Optional ByVal First As Variant, _
  Optional ByVal Last As Variant, Optional MinIndex As Long) As Variant
  Dim Index As Long

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

  MinIndex = First
  ArrayMin = arr(MinIndex)

  For Index = First + 1 To Last
    If ArrayMin > arr(Index) Then
      MinIndex = Index
      ArrayMin = arr(MinIndex)
    End If
  Next
End Function