Option Explicit

Dim mclsCalc As New StringCalc

Private Sub Command1_Click()
    Dim strArrayExp()   As String
    Dim strAnswer       As String
    
    With mclsCalc
        '文字列を種類ごとに分離します
        .Resolve Text1.Text, strArrayExp
        
        '分離した文字列を計算します
        .ExpAnswer strArrayExp, strAnswer
    End With
    
    Text2.Text = strAnswer
    
End Sub