problema de vb. ¿Escribir funciones por partes utilizando el enfoque de declaración de caso selecto?

Atenuar x como entero, y como doble

x = Val(InputBox("ingrese datos x:"))

Seleccionar caso x

El caso es > ; 20

y = x ^ 2 + 3 * x + 2

El caso es >= 10 y x <= 20 p>

y = Sqr(3 * x) - 2

El caso es > 0 y x < 10

y = 1 / x + Abs(x)

Finalizar selección

Formato de impresión(y, "#.0000")

Fin Sub