Imports Microsoft.ClearScript.Windows

Public Module App
    Sub Output(Text As String)
        Console.WriteLine(Text)
    End Sub

    Sub Wait()
        Console.ReadKey()
    End Sub
End Module

Module Module1
    Sub Main()
        Dim dtNow As Date

        dtNow = Now
        Dim strCode As String = "
Sub Main(DateFrom, DateTo, Title)

        Dim s

        s = ""DummyText '{@ReferenceDateFrom}', '{@ReferenceDateTo}', '{@Title}'""

        s = replace( s, ""{@ReferenceDateFrom}"", DateFrom )
        's = replace( s, ""{@ReferenceDateTo}"", DateTo )
        s = replace( s, ""{@Title}"", Title )
        s = replace( s, ""{@ReferenceDateFrom}"", ""01.01.2025"" )

        App.Output(s)

        App.Wait

End Sub"


        Using ScriptEngine As New Microsoft.ClearScript.Windows.VBScriptEngine(WindowsScriptEngineFlags.EnableDebugging)
            ScriptEngine.AddHostType(GetType(App))
            ScriptEngine.AddHostType(GetType(Date))
            ScriptEngine.Execute(String.Join(vbCrLf, strCode))
            ScriptEngine.Invoke("Main", dtNow, dtNow.AddDays(1), "Test")
        End Using
    End Sub
End Module