Problema de cálculo de varios pasos de la calculadora VB

Te daré un fragmento de código~ Puedes crear la interfaz tú mismo~ Úsame para cosas informáticas básicas~ ¿Déjame tu información de contacto~?

¿Público?Función?ExpresionesEvaluar (ByVal?strExpressions?As?String)?As?Currency' script

Dim?objEvaluate?As?Object

On?Error?GoTo?LocalErr

Establecer?objEvaluate?=?CreateObject("MSScriptControl.ScriptControl")

Con?objEvaluate

.Language?=?"VBScript"

ExpressionsEvaluate?=? .Eval(strExpressions)

¿Fin?Con

Establecer?objEvaluate?=?Nada

¿Salir?Función

LocalErr: p>

Err.Clear

ExpressionsEvaluate?=?0

Establecer?objEvaluate?=?Nada

Fin?Función

¿Privado?Sub?Command1_Click()

Texto2.Text?=?ExpressionsEvaluate(Text1.Text)

Fin?Sub