Visual Basic - Hallar el valor de formulas

Mi problema es lo siguiente:
Tengo una variable tipo cadena la he llamado cadena con el siguiente valor "X * 2"
Lo que quiero es que se almacene el valor reemplazando el X, al utilizar funciones de cadena logre con funciones left y right reemplazar el x por un valor determinado en este caso 600 y sale el valor de la cadena "600 * 2", y al utilizar la funcion val me sale EL VALOR DE 600 AHHAHHAH, como puedo hallar el valor de 1200 y almacenarlo en una variable double.

Gracias de antemano

Prueba esto
==================================
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
Result = sc.Eval("600 * 2")

'El valor de Result es 1200
===================================