Necesito ayuda en una funcion que me saque si es vocal

[gokufast]

necesito ayuda en una funcion que esta bien facil (creo), pero como no conozco mucho de VB quisiera una ayudita, es una Funcion una funcion que indique si la letra proporcionada como arguento es una vocal.

Mas o menos seria la cosa asi:

function es_vocal (x)
if x = "a" then
es_vocal = "si"
elseif x = "e" then
es_vocal = "si"
elseif x = "i" then
es_vocal = "si"
elseif x = "o" then
es_vocal = "si"
elseif x = "u" then
es_vocal = "si"
else es_vocal = "no"
endif
end function

ahora no se como expresarlo en lenguaje de visual basic.

Saludos