Since you cannot perform math on a text string you will need to convert each operand of the equation to a numeric value first.

Dim A() As Double 'it doesn't need to be Double - depends on possible magnitudes

A = Split(Text1.Text,"^")

Temp = ScriptControl.Eval(A(0)^A(1))