[VB.NET]请教MSScript.ocx 问题

请教MSScript.ocx 问题
我用MSScript.ocx vb6.0的控件，在vb.net中加入该控件，怎么试都不行，请高手指教。
Private Sub Button1_Click()
AxScriptControl1.AddCode( Function returnthis & vbCrLf _
& returnthis = 5 & vbCrLf _
& End Function )
Dim obj() As Object

Dim a As Int32 = AxScriptControl1.Run( returnthis , obj)
End Sub

运行后出错，报如下信息：

未处理的“System.NullReferenceException”类型的异常出现在 axinterop.msscriptcontrol.dll 中。

其他信息: 无效指针
__________________________________________________________________________
怎么没有人帮忙呀？有谁要是帮我解决了此问题，我就帮我盛下的分数全给他，
我很急呀！
__________________________________________________________________________
Function returnthis()
__________________________________________________________________________
Dim Gongshi As String
Dim ResultData As Double

Gongshi = OrgData*1000 公式
ScriptControl1.AddCode( private OrgData ) 先定义公式中的变量
ScriptControl1.AddCode( OrgData=5 ) 给变量赋值
ResultData = ScriptControl1.Eval(Gongshi) 计算结果
__________________________________________________________________________
谢谢UserInfo(神话) ，你的这种方法我后来自己试出来了，但 用AxScriptControl1.Run()方法，不知怎么调用？
__________________________________________________________________________
我想给你分，但怎么也结不了贴，真奇怪
__________________________________________________________________________