vb.net - VB.net で MSscriptControl を使用してオブジェクトを追加すると、Specified cast is not valid エラーが発生します

Question

エラーを生成するサンプル コードを次に示します。過去に VB プロジェクトで MSscript を使用したことがあり、それらのプロジェクトは機能しています。

報告されたエラーは次のとおりです。「数値からキャストする場合、値は無限大よりも小さい数値でなければなりません」

または、スクリプトをプロジェクトに簡単に追加する別の方法が提案されている場合。

    Private Sub Run_Script()
        Dim scriptEngine As New MSScriptControl.ScriptControl()
        Dim TestClass As New Sample
        Dim ScriptCode As String

        scriptEngine.Language = "VbScript"
        scriptEngine.AddObject("Test", TestClass, True)

        ScriptCode = "MsgBox ""tests"" "
        scriptEngine.AddCode(ScriptCode)
    End Sub
End Class

Public Class Sample
    Public Sub Test()
        MessageBox.Show("This is a test")
    End Sub
End Class