Как получить строку без кавычек? - VB

Формулировка задачи:

Как получить данные из строки без кавычек? Например,в text1 введено x^2 далее,y=text1.text ,и y вернётся "x^2" . Как получить без кавычек?

Или может есть какой-то другой способ передавать значение...кусок кода калькулятора,рисующего графики функций.

Private Sub mnuDraw_Click()
Form2.BackColor = &H80000009
DrawWidth = 2
Scale (-10, 10)-(10, -10)
Form2.ForeColor = &H0&
Line (-10, 0)-(10, 0)
Line (0, -200)-(0, 200)
DrawWidth = 1
Form2.ForeColor = &HFF&
For x = -10 To 10 Step 0.01
Line -(x, Example(x))
Next
End Sub

как в y передать строку без кавычек?

Function Example(ByVal x As Variant)
y = Text1.Text
Debug.Print y
Example = y
End Function

Решение задачи: «Как получить строку без кавычек?»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 Dim q As Single
 Dim st As String
 
   Dim Xk, Yk, p, p1
   With Picture1
  .Cls
  .ScaleWidth = 10 '20,6.28,...
  .ScaleHeight = 10 '20
  .Height = .Width
        .DrawWidth = 1
    Xk = Picture1.ScaleWidth
        Yk = Picture1.ScaleHeight
   End With
  Picture1.Line (Xk / 2, 0)-(Xk / 2, Yk), vbWhite
   Picture1.Line (0, Yk / 2)-(Xk, Yk / 2), vbWhite
   
    For p = -Xk / 2 To Xk / 2 Step 0.01
    'p1 = 6.28 * p / ScX
     st = Replace(Text1.Text, "x", p)
     st = Replace(st, ",", ".")
        On Error Resume Next
      q = ScriptControl1.Eval(st)
    If ScriptControl1.Error.Number > 0 Then GoTo 1
Picture1.PSet (p + Xk / 2, Yk / 2 - q), vbYellow
1
  Next p
End Sub
                        