vb textbox四则运算

请大家帮解决一个VB的问题
我想设置一个TEXT
当我输入在text1中输入1+2*4-5 ，然后当我按tab键时，该text1的值就直接输出结果4。且整个工程的每一个TEXT中都有这种功能.。。其实我的意思，TEXT有类似OFFICE EXCEL的单元格的功能。。
能把运算表达式都写出吗？因为我真的不会er..
谢谢各位大虾帮帮手！~~~我是初学的

1个text和1个command
1.新建类模块 代码如下:
'设置text控件的特殊运算功能 tab 计算 双击显示公式
Option Explicit
Private WithEvents txtTb As TextBox
Private m As String, S As Single, f As Boolean
Private Sub txtTb_DblClick()
txtTb.Text = m
End Sub
Public Sub Attach(Istxt As TextBox) '函数定义类型－－－－外部方法
Set txtTb = Istxt
End Sub
Private Sub txtTb_LostFocus()
f = False
m = txtTb.Text: S = sigval(Trim(txtTb.Text)): txtTb = S
End Sub
Sub sg(a As String) 'a为txttb.text
'计算过程
End Sub
'---------------------------------------------------------

'-------------------------------------------------------
Public Function sigval(表达式 As String) As Single
Dim bsg As String
bsg = 表达式 '另复制变量,阻断对原表达式的可能影响
bsg = Replace(bsg, "**", "^") '统一sigval符
代码较多 已发消息给你 如要查看详细
请