Have a look at the Microsoft Script Control - you can give it a string equation and it will evaluate it:
Code:
Private Sub Command1_Click()
    MsgBox ScriptControl1.Eval("2^(1+2)")
End Sub