vb与vbs传值的问题?

Question

有如下代码,sc1为script control
Private Sub Command2_Click()bb = 1234
Dim str1 As String
Dim str2 As String
Open App.Path & "\aa.vbs" For Input As #1
Do While EOF(1) = False
Line Input #1, str2
str1 = str1 & str2 & Chr(13) + Chr(10)
Loop
Close #1
SC1.AddCode str1
SC1.Run "mes"
MsgBox bb
End Sub
在vbs中mes如下:
sub mes()
bb=456
end sub
我在msgbox 结果还是1234,请问vbs如何给vb的变量赋值,难道只有定义一个类,然后创建对象使用addobject才能赋值吗?另外还请问vbs如何调用vb的过程.
谢谢