How to call a user defined function with eval in Oulook VBA ?

[pfav]

I am trying to call a user defined function in Outlook VBA with eval, but script control seems not to recognize my local functions :

Public Function myFunc() As String
myFunc = "foo"
End Function
...
Dim sc As Object
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "vbscript"
MsgBox sc.Eval("myFunc()")

throws error: "Incompatible type: myFunc"

Any help ?

 

[combo]

Why not directly from VBA:
[tt]MsgBox myFunc()[/tt]

combo

 

[strongm]

>script control seems not to recognize my local functions

Well no - you need to add the functions to the script ... investigate AddCode. That being said, if these are local functions in VBA, then I echo combo's question

>error: "Incompatible type: myFunc"

I presume this is a translation, as I'd expect the error in English to be "Type Mismatch