maxif funktion til excel

Hej

jeg har forsøgt at lave en funktion der skal finde den største/mindste værdi i et array ud fra et kriterie - her er det jeg har prøvet på.

Jeg får følgende i excel: #VÆRDI!

Function maxif(values As Variant, kas As Range, ka As Double) As Double
    Dim A1 As Variant
    Dim counter, c1 As Integer
    counter = 1
    c1 = 1
    V1 = 0
   
    While counter <= UBound(values)
      ' x = kas(counter, 1)
      If kas(counter, 1) = ka Then
        A1(c1, 1) = values(counter, 1)
        c1 = c1 + 1
      End If
      counter = counter + 1
  Wend
  maxif = Aplication.Min(A1)
End Function