text根据公式自动计算。

Dim s
   
    If Text1 = "" Then Exit Sub
    On Error GoTo errHandler

    Set s = CreateObject("ScriptControl")
    s.Language = "VBScript"
    Text1 = s.Eval(Text1)
    Set s = Nothing
    flag = True
    Exit Sub
errHandler: Text1 = "E"