将公式存放在数据表中，取出来按照公式进行计算

如题，先假设有以下这个简单程序，

Dim Sha, Shc, Shb, Shd, She, Shf, Shg As Integer

        Sha = 2

        Shc = 2

        Shb = 2

        Shd = 2

        She = 2

        Shf = 2

        Shg = 2

        Dim shuju As Single

        shuju = (Sha + Shc) / 2 + (Shb + Shd + She + Shf + Shg) ^ (1 / 3)

        Label1.Text = shuju

其中(Sha + Shc) / 2 + (Shb + Shd + She + Shf + Shg) ^ (1 / 3)就是公式，被我放入到数据库字段里面
现在问如果将题中的(Sha + Shc) / 2 + (Shb + Shd + She + Shf + Shg) ^ (1 / 3)用我从数据库中取出的值替换
直接替换是不行的，从数据库里面取出来就已经变成一个字符了“(Sha + Shc) / 2 + (Shb + Shd + She + Shf + Shg) ^ (1 / 3)”，不能进行任何计算。
先请教高手，如何实现我说的功能。