obtener un valor dinamico segun una cadena

hola.
Estoy creando una aplicación que el usuario debe ingresar una formula y yo
debo reemplazar las letras por valores y finalmente debo llevar el
resultado
a una variable numerica, por ejemplo.

el usuario digito:
I + (5*2)+ 1

yo debo reemplazar la letra y por un valor que obtengo de una base de
datos
y luego convertir todo esto a un valor numerico de esta forma.

llevo a una variable string toda la cadena.
dim a as string = " I + (5*2)+ 1"
reemplazo la letra I por un valor cualquiera ejemplo
a = a.replace("I","5")

y por ultimo.

debo llevar este valor a un valor numerico.., aqui esta la pregunta, como
se
hace para que una variable numerica tenga el valor = 12 como se ve en el
ejemplo anterior?.