Visual Basic - Scriptcontrol

Necesito ayuda con el scripcontrol, estoy evaluando una funcion, pero el scriot me vota error al evaluar o a asignar un decimal,
el codigo es asi:
x=0.5
scriptcontrol1.ExecuteStatement("x= " & x)
fi=scriptcontrol1.Eval(Trim(fomrula.text))
no se esta todo bien escrito, pero es la idea, y el me arroja error al asignar un decimal, por favor necesito una mano rapaido.

Fijate con:

With ScriptControl1
.AddCode "x = " & Str(x)
fi = .Eval(Trim(formula.text))
End With

Haber martin utilice este codigo y pregunte en el salon sabeloTodo

ScriptControl1
.AddCode "x = " & Str(x)
fi = .Eval(Trim(formula.text))