Function myMax(ParamArray FieldArray() As Variant)
    Dim i As Integer
    Dim currentVal As Variant
    currentVal = FieldArray(0)
    For i = 0 To UBound(FieldArray)
        If FieldArray(i) > currentVal Then
            currentVal = FieldArray(i)
        End If
    Next i
    myMax = currentVal
End Function

Function myMin(ParamArray FieldArray() As Variant)
    Dim i As Integer
    Dim currentVal As Variant
    currentVal = FieldArray(0)
    For i = 0 To UBound(FieldArray)
        If FieldArray(i) < currentVal Then
            currentVal = FieldArray(i)
        End If
    Next i
    myMin = currentVal
End Function