Найти ошибку в вычислении выражения - VB

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

Sub Сергей()
Dim x, y, z, f, max, min As Single
x = Val(InputBox(2))
y = (InputBox(6))
z = (InputBox(10))
If x / 2 > y / 3 > z / 4 Then
If x / 2 > y / 3 Then
max = x / 2
Else
max = y / 3
End If
 
If z / 4 > max Then
    max = z / 4
    End If
    If x ^ 2 < y ^ 2 Then
    min = x ^ 2
    Else
    min = y ^ 2
    End If

End If
 
MsgBox "f=max(x/2,y/3,z/4)+min(x^2,y^2,)= " & CStr(min) & " + " & CStr(max) & " = " & CStr(min + max)
End Sub

Решение задачи: «Найти ошибку в вычислении выражения»

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

                            Sub Сергей()
Dim x As Single, y As Single, z As Single, f As Single, max As Single, min As Single
x = Val(InputBox(2))
y = Val(InputBox(6))
z = Val(InputBox(10))
 
      If x / 2 > y / 3 Then
       max = x / 2
      Else
       max = y / 3
       End If
 
    If z / 4 > max Then
      max = z / 4
    End If
    If x ^ 2 < y ^ 2 Then
     min = x ^ 2
    Else
      min = y ^ 2
    End If
 
 
 
MsgBox "f=min(x+y+z/2,x-y-z)+max(x^2,y^2,z^2)= " & Str(min) & " + " & Str(max) & " = " & Str(min + max)
 
End Sub
                        