Даны три числа x, y, z. Вычислить S = min(z, max(y, x)) - VB

Dim x As Integer, y As Integer, z As Integer, S As Integer
Dim max As Integer
 
max = y
If y < x Then
max = x
End If
 
S = z
If z > max Then
S = max
End If