EXCEL 的VBA 编程遇到的有关问题，高手帮忙一下吧

EXCEL 的VBA 编程遇到的问题，急，在线等高手帮忙一下吧
EXCEL 的VBA 编程遇到的问题，急，在线等高手帮忙一下吧

VB code

'Student类文件中的内容 Public int_ID As Integer     '学生在集合中的序号 Public str_stdID As String   '学生学号 Public str_name As String '学生姓名 Public arr_myCourses As New Collection   '选课的课程代码集合<---------'--------------------------模块文件中的代码Public arr_students As New Collection 'array to store studentsPublic tStudent As New StudentSub readStudentInfo()    Dim totalColumn    Set stdRange = Range("a1:e1570")    totalColumn = stdRange.Rows.Count        Dim i, j, lastStdID    lastStdID = stdRange.cells(2, 1).Value    j = 1        For i = 2 To totalColumn        If stdRange.cells(i, 1).Value <> lastStdID Then          arr_students.Add (tStudent)<----这行报错，说不支持该方法或者属性，怎么可能呢？是不是参数的问题呢？            Dim Num            For Num = 1 To tStudent.arr_myCourses.Count                tStudent.arr_myCourses.Remove 1            Next            j = j + 1            lastStdID = stdRange.cells(i, 1).Value        End If        With tStudent            tStudent.int_ID = j            tStudent.str_name = stdRange.cells(i, 2).Value            tStudent.str_stdID = stdRange.cells(i, 1).Value            tStudent.arr_myCourses.Add (stdRange.cells(i, 5).Value)        End With    NextEnd Sub