Dim host As New MSScriptControl.ScriptControlClass
        Dim Cod As String
        Dim ret As String

        host.Language = "VBScript"

        Cod = "Function Test(nombre)" & vbCr
        Cod += "getname= mid(nombre,1,instr(nombre,""|"")-1)" & vbCr
        Cod += "Test = getname" & vbCr '"Msgbox(getname)" & vbCr
        Cod += "end function"

        host.AddCode(Cod)
        ret = host.Run("Test", "mariano|malomo")

        MsgBox(ret)