初用类模块的烦恼

[contactjoe]

我已建好了myclass类和由它组成的conmyclass类集合
conmyclass的add方法如下：
Public Function Add(Optional sKey As String) As myclass
Dim objnewmember As myclass
Set objnewmember = New myclass
If Len(sKey) = 0 Then
mCol.Add objnewmember
Else
mCol.Add objnewmember, sKey
End If
Set Add = objnewmember
Set objnewmember = Nothing
End Function

运行出错：要求对象
Dim newconclass As conmyclass
Set newconclass = New conmyclass
Dim newclass As myclass
Set newclass = New myclass
Set newclass = newconclass.Add(Text1.Text) 'Text1.Text="1",并且停在此行

请帮忙解决,谢谢.

[Un1]

出什么错误提示？！！

[shines77]

好像 Set newclass = New myclass 此句可以省掉。

[shines77]

你的 mCol 还没有定义啊，初步测试了一下，好像你的程序没问题，（因为你的程序未给全，所以有些是假设的），你的 mCol 是什么类啊？这是前提，否则很难测试。
不过我看是不是 mCol.Add objnewmember, sKey 这句是不是把 sKey 字符串加到 ObjNewNumber (MyClass类)中？具体说明。