Вычисление значения выражения по формуле - VBA

Формулировка задачи:

Ребята вы мне столько много помогли и объяснили, можете посмотреть вот этот пример который на скрине, у меня есть наброски только не по этому примеру вот:

Option Explicit
Sub Primer()
  Dim x As Double, y As Double, z As Double, max As Double, min As Double, F As Double
  x = Val(InputBox("Введите x"))
  y = Val(InputBox("Введите y"))
  z = Val(InputBox("Введите z")) 
 If (x * z) < y + (2 * x) Then
 min = x * z
 Else
 min = y + (2 * x)
 End If
 If y + (2 * x) < (z) ^ 2 Then
 min = y + (2 * x)
 Else
 min = (z) ^ 2
 End If
 If (x * z) < (z) ^ 2 Then
 min = x * z
 Else
 min = (z) ^ 2
 End If
 If (x) ^ 2 > (y) ^ 2 Then
 max = (x) ^ 2
 Else
 max = (y) ^ 2
 End If
 F = min / (max) ^ 2
  MsgBox ("Максимум=" & F)
End Sub

Решение задачи: «Вычисление значения выражения по формуле»

textual
                            Листинг программы 
                        

                            Sub Кнопка3_щелчок()
MsgBox "F=" & f(InputBox("Введите x", "ДРОБНУЮ ЧАСТЬ ОТДЕЛЯЙТЕ СИСТЕМНЫМ РАЗДЕЛИТЕЛЕМ (НЕ ФАКТ, ЧТО ЭТО ТОЧКА)!"), InputBox("Введите y"), InputBox("Введите z"))
End Sub
 
Function f#(x#, y#, z#)
With WorksheetFunction
  f = .max(x, .min(y, z - x)) / (y * y + x * .min(x * y, z * x))
End With
End Function
                        