主题：关于表达式求值出错

请问以下代码有问题吗？为什么我试了出错呢？

If e.KeyCode = Keys.Enter Then
    Dim s As String = e.Form.Controls("TextBox1").value
    dim s1 as Double =Eval(s)
    Tables(MainTable.Name).Current("数量") = s1 '单行写入的代码
   
End If