Qtp如何调用vbs中创建的类？

论坛问题http://bbs.51testing.com/thread-119751-1-6.html  

答案代码如下

Option explicit

Public function stack()
    set stack = new clsStack
End Function

Class clsStack

    Private l
    Private Sub Class_Initialize    ' Setup Initialize event.
        set l = linkedList         ' Create a linked list instance
    End Sub

    Public function pop()
        If l.count = 0 Then exit function    ' No items in the list
        pop = l.getlast()          ' Return the last item
        l.deleteLast               ' and delete it
    End Function

    Public sub push(element)       
        l.add element              ' Add an item to the list
    End sub

    Public function peek()           
        peek = l.getlast()         ' Peek at the top item
    End Function

End Class

在qtp中加载以上vbs文件然后在qtp中写如下代码：

Dim tStack

set tStack = stack         

以上代码运行会有错误，因为linkedList类的实现我没有给出代码。