请教一个 VB脚本问题

Question

我已经定义了一个变量。然后运行脚本给这个变量赋值，然后运行MSGBOX 变量。 但是得到的结果是零 。请高手赐教。
  代码如下：
   dim Tie as integer
   ss = "Sub Useful()" & vbCrLf & _
                 "Tie=12" & vbCrLf & _
             "End Sub"
  With ScriptControl1
    .Language = "vbscript"
    .Modules.Add "xingwei"
    .Modules("xingwei").AddCode ss
    .Modules("xingwei").Run "Useful"
    .Reset
  End With
  MsgBox Tie   .  得到的结果是0  ，请高人们告诉我这是怎么回事 ，如何才能让主程序中定义的变量获得脚本中赋值语句提供的值。

Answer 1

测试
你只能将值传进去，传不出来你可以把Tie定义为全局变量试试

Answer 2

Tie 是全局变量， 仍然不行 。 问题已解决 。 
只能通过addobject tie  然后访问tie中的数值。 
所以，变量必须封装在类里面。