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

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

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

Sub Сергей777()
Dim x As Single, y As Single, z As Single, f As Single, max As Single, min As Single
x = Val(InputBox("x = ",,2))
y = (InputBox("y = ",,6))
z = (InputBox("z = ",,10))
If x / 2 > y / 3then max = x / 2 else max = y / 3
If z / 4>max  then max =z / 4
'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