Binaryworld - ArrLongestItem - The value and index of the longest element of an arra ... [ VB -> Arrays ]

' The longest item in an array of any type
' (it applies the LEN function to all the items in the array
' and then takes the highest value)
'
' FIRST and LAST indicate which portion of the array
' should be considered; they default to the first
' and last element, respectively
' if LONGESTINDEX is specified, it receives the index of
' the longest element of the array

Function ArrLongestItem(arr As Variant, Optional ByVal First As Variant, _
  Optional ByVal Last As Variant, Optional LongestIndex As Long) As Variant
  Dim index As Long
  Dim maxLength As Long

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

  ArrLongestItem = arr(First)
  maxLength = Len(ArrLongestItem)
  LongestIndex = First

  For index = First + 1 To Last
    If maxLength < Len(arr(index)) Then
      ArrLongestItem = arr(index)
      maxLength = Len(ArrLongestItem)
      LongestIndex = index
    End If
  Next

End Function