文本框内的数学公式如进行计算

第一步：将文本框的命名分别改为：

txtA,txtB,txtC,txtD,txtGS,txtJG

第二步：

Private Sub 计算_Click()
    Dim JG As Double
    Dim GS As String
    GS = Replace(txtGS, "A", txtA)
    GS = Replace(GS, "B", txtB)
    GS = Replace(GS, "C", txtC)
    GS = Replace(GS, "D", txtD)
    JG = Eval(GS) 
    Me.txtJG = JG
End Sub