vb函數計算問題?

小弟寫了一個程式，可以讓使用者隨意輸入函數跟函數值，但執行到倒數第三列就出錯了，可以請各位高手指點一下計算過程該怎麼寫嗎?
奉上目前打的
Dim X As Long = Val(TextBox2.Text)
TextBox1.Text = TextBox1.Text.ToLower
Dim A() As String
A = TextBox1.Text.Split("=")
A(1) = A(1).Replace("-", "+-")
Dim B() As String
B = A(1).Split("+")
Dim I As Integer
Dim Sum As Long = 0
For I = 0 To B.Length - 1
Sum = Sum + Math.Pow(B(I), X)
Next
MsgBox("f(" & X & ")=" & Sum)