Можно ли вызвать функцию Left с помощью CallByName? - VB
Формулировка задачи:
Ни кто не подскажет?
Решение задачи: «Можно ли вызвать функцию Left с помощью CallByName?»
textual
Листинг программы
Public Function EvalVbConstant(Optional sData As String = "vbYes") As String
On Error Resume Next
Dim oScript As Object 'New MSScriptControl.ScriptControl
Set oScript = CreateObject("ScriptControl") ' New MSScriptControl.ScriptControl
oScript.Language = "VBScript"
EvalVbConstant = oScript.Eval(sData)
End Function