主题：vbs 调用问题

sub tst()

'创建一个Array数组对象并排序
Dim dm '创建一个变量
'创建Array对象，将对象实例置变量d中
Set dm = CreateObject("Stock.Array")
'创建完Array对象后往其内部插入两个数据
dm.Add(3.25)
dm.Add(4.33)
dm.Add(2.02)
'按正序排列数组数据
dm.Sort(0)
'依次显示数组对象数据
For is = 0 To 2
MsgBox dm.GetAt(is)
Next

end sub

Sub UserForm2_CommandButton1_Click()

call tst

end sub

 

提示对象不支持此属性和方法 dm

什么错误

另外如何调用分笔的qt Openint ？