Private Function GetMax(ParamArray Values() As Variant) As Long
  Dim i As Long
  Dim maxValue As Long
 
  For i = LBound(Values) To UBound(Values)
    If Values(i) > maxValue Then maxValue = Values(i)
  Next i
 
  GetMax = maxValue
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de