Public Function CalcEx(ByVal Txt As String)
'Constante qui représente la fonction de calcul
Const CODE As String = "Function Calcul(Fin): Fin=%1:End Function"
Dim SCalcul As Object
Dim ValDef
Set SCalcul = CreateObject("MSScriptControl.ScriptControl.1")
With SCalcul
'Language utilise
.Language = "VBScript"
'Ajout du code
Call .AddCode(Replace(CODE, "%1", Txt))
'Execution du code ajouter (fonction Calcul)
Call .Run("Calcul", ValDef)
'Retourne la valeur
CalcEx = CInt(ValDef)
End With
'Destruction de l'objet
Set SCalcul = Nothing
End Function