4 числа. Найти наибольшее и наименьшее число - VB

Function Func(ByVal num1 As Double, ByVal num2 As Double, ByVal num3 As Double, ByVal num4 As Double)
    Func = Max(Max(Max(num1, num2), num3), num4) + Min(Min(Min(num1, num2), num3), num4) ^ 2
End Function
 
Function Max(ByVal num1 As Double, ByVal num2 As Double) As Double
    Max = IIf(num1 >= num2, num1, num2)
End Function
 
Function Min(ByVal num1 As Double, ByVal num2 As Double) As Double
    Min = IIf(num1 <= num2, num1, num2)
End Function