セッションに格納しようとしているのですが
エラーが出て困っています・・・

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sc As Object


'microsoft
' 変数を宣言します。
sc = CreateObject("ScriptControl")
sc.AllowUI = True
sc.Language = "VBScript"
' スクリプト コントロールにスクリプト コードを追加します。

sc.AddCode("Sub Main : " & _
"Session(""aaa"") = ""123""" & _
"End Sub")

' スクリプト コードを実行します。
sc.Run("Main")


End Sub