I apologize. I somehow lost the power symbol "^" during copy/paste.

S = "Solve[x2+x-6==0,x]"
S = "Solve 3*x3+4x-3 = 15 FOR x"
S = "Solve x3-9x2+26x = 24 for x"

Sub Demo()
Dim V
Dim S As String

' These were missing the ^ symbol
' S = "Solve[x^2+x-6==0,x]"
' S = "Solve 3*x^3+4x-3 = 15 FOR x"

S = "Solve x^3-9x^2+26x = 24 for x"
HexAdj S
Question S

'// C1 Has a formula. What is the derivative
'// with respect to A1?

[C1].Formula = "=A1^3+2*A1"

S = Mid$([C1].Formula, 2)
HexAdj S
S = Replace("The Derivative of # wrt A1", "#", S)
Question S
End Sub



Private Function Question(data)
Const K As String = "http://www.wolframalpha.com/input/?i=#"
Dim WolframAlpha As String

WolframAlpha = Replace(K, "#", data)
ActiveWorkbook.FollowHyperlink WolframAlpha, , True
End Function

Function HexAdj(ByRef Str)
'// Adjust some input characters to Hex for clarity
Str = Replace(Str, "+", "%2B+")
Str = Replace(Str, "=", "%3D")
End Function

= = = = =
Dana DeLouis