Cómo reemplazar fórmulas con variables (es decir, cadenas) en expresiones matemáticas en programas VB

No existe tal función en VB (incluido VBA), pero se puede implementar en VBScript, por lo que puede lograr su propósito indirectamente llamando al componente VBScript en VB: Dim?a?As?Integer, ?b?As?Integer,?c?As?Integer

Función?CalcStr(StrNum?As?String)?As?Double

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

MSSC.Language?=?"VBScript"

CalcStr?=?MSSC.Eval(StrNum)

Fin?Función p>

¿Privado?Sub?Command1_Click()

a?=?1

b?=?2

c?=?3

MsgBox?"a*b c="?amp;?CalcStr("a*b c")?

End?Sub